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Preface 

Our book is targeted for students of electronics and computer sciences. First part 
of the book contains 15 original applications working on the PIC microcontroller. 
They are: lighting diodes, communication with RS232 (bit-banging), interfacing to 
7-segment and LCD displays, interfacing to matrix keypad 3x4, working with 
PWM module and other. They cover 1 semester teaching of microcontroller pro- 
gramming or similar clases. The book has schematics diagrams and source codes 
in assembly with their detailed description. 

All tests were prepared on the basis of the original documentation (data sheets, 
application notes). Sometimes, encountering problems we looked for help on 
various foums in the world with people involved in the hi tech challenges. 

Next three chapters: The Stack, Tables and Table instruction and Data memory 
pertains to PIC 18F 1320. Software reffered to is also in assembly laguage. 

Finally we describe the application of the PIC24FJ microcontroller with the 
240x128 LCD display and the analog accelerometer sensor. 



Testing board description 

Presented in the book applications were implemented on the original testing board 
called Microcon4. The hardware is uncomplicated and showing parts of entire 
schematics is intended to illustrate the easy of use of various peripherial devices. 
We use following peripherial devices: 

ICSP In-Circuit-Serial Programming device 

7-segment display 

TTL/CMOS driver ULN 2803 for Port A and Port B 

LCD display 

Matrix Keypad 

I2C expander PCF 8574 

EEPROM 24C02 and RTC PCF8583 

UART communication bus with MAX 232 IC 



VIII 



Bohdan Borowik 





\PA3 
\PA4 






1 


L 
















I| 








l|_ 


._ 


_ 










J 




1 
















■ 


t 

7 








































































































































/Vref/AN2 AN1/ PA1 
/CMP1/AN3 AND/ PAD 


17 | 
















































gar 












































— PA 


j, r 


1 






















5V 














— PA 


/CMP2 0SC1/ 
/MCLR/Vpp OSC2/ 


m? 








C19 


































— PA 


PAe 






II 1 




























~ VS 


PIC16Fi528A VD 
/INT PGD/P 


;, 




' r t : 




















^ 


=L 


J 
Et 










7 




12 






C20 




















72 A 














/Tx/CK PB5 


11 






L 


rJ+^li-4 




















1 




r 


12 


















C9 






L 
























Lfi 


)t 














(-^ PB3/CCP1 PGM/PB4 


,._ 


— | 1 




I pi I 










































1 ' ' 


OOn 
























TR4 






















\ 


























U,5. 










us 1 


■ II 




: 1 | 1 


* 


















1 { 


n^JBC547_B 






































■ 




















































































































■ 1 As4 1 ■ 






















































1 MCLR 






ITr 


., 
















-1 


i-i 






























f GHT 








1 


.. 














u: 


J J 1 REL-2 
























> 










... 












N 


























4 PGD 




















# 


f 


,-fcfe* TPTT 


























5 PGC 




















rfr 
























k 


— 


— 


^^ 




















































J 1 






































































































































































t 











































































































































































































Fig. 1 . In Circuit Serial Programing ICSP device connected to JP2 
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Fig. 2. 7-Segment Display connected to port B 
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Fig. 3. Using TTL/CMOS driver ULN 2803 for port A 
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Fig. 4. Using TTL/CMOS driver ULN 2803 for port B 
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Fig. 5 . Connection LCD Display and Matrix keyboard to port B 
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Fig. 6. Connection Expander I2C, PCF8574 EEPROM 24C02 and RTC PCF8583 
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Fig. 8. Switching power supply using the U5 L4960 device. 
Additionaly we present the schematic for typical programmer: 




Fig. 9. Schematic diagram of 1CSP programmer 
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Test examples 

Presented below tests were implemented on the testing board Microcon4. 

Test 1. Turn the LED on for the calculated period of time. 

We define two registers countl and count2 in the data memory GPR (General 
Purpose Registers), that starts at the address 0x20. 

cblock h'20' ; constant block 

countl, count2 
endc 



In the nested loop the inner loop runs 256 times, therefore countl is first cleared 
and then is decremented 256 times, until will have again value of 0. 

decfsz countl, f 



The outer loop will run 9 times, therefore we initiate register count2 with the value 
of9. 

The loop requires 3 machine cycles 

del decfsz countl, f ; inner loop 

goto del 



Decrementation execute in a single cycle, while program branch requires 2 cy- 
cles. For the internal clock frequency of 32 kHz, 1 machine cycle lasts 108 us. 
Calculated time: 

9 x 256 x 3 x 108 us = 0,746 s. 



Program code: 



************************************************* 

r 

;T1 Blinking the LED, connected to bitl of PORT B, 
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with delay equal to 0,75 s. 

Internal clock frequency 37 kHz, Tern = 108 (0.S 

-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 



list p=16f628, r=hex ; declare processor, 

; specifying the radix 
#include pl6f628.inc ; include register label 

definitions 



config h'3fl0' 



errorlevel -302 



#def ine outl portb, 1 



configuration 
information 

for selected processor 
turn off banking 
message 
the directive 
; substitutes a text portb, 1 
; with a string outl 



#def ine countO . 9 

cblock h'20' 

countl, count2 

endc 

movlw h' 07 ' 
movwf cmcon 
clrf porta 
clrf portb 



/defines value of 9 decimal 
; for register count2 
constant block 



;07 -> w 

; w->cmcon, comparators off 
; clear PORTA output latches 
/initializes PORTB 

bsf status, rpO ;bank 1 

bef peon, oscf /internal gen. 32 kHz, 

; cm=10 8us 

clrf trisa ; PORTA for output 

clrf trisb ; PORTB for output 
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loop 



bcf status, rpO 

D 

bsf outl 

call delay 

bcf outl 

call delay 

goto loop 



;bank 
; main loop 
turn the LED on 
call delay routine 
turn off LED on RBI 
call delay routine 
repeat main loop 



delay ;delay 0,75s ( 9*256*3*108us=0 . 746 s) 

countO ->w 
initializes count2 
initializes countl 



; decrement countl 
if not 0, keep 
decrementing countl 
decrement count2 
if not 0, decrement 
countl again 
return to main routine 

end 

************************************************* 



movlw countO 






movwf count2 






clrf countl 






del decfsz countl, 


f 




goto del 




f 


decfsz count2, 


f 


t 
t 


goto del 




f 


return 




t 
f 
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Test 2. Turn on the LEDs connected to various lines of port B 



Program code: 

-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 
r 

* T2 * Turning on the LEDs, connected to 
bit 1 and bit 7 of PORT B by seting RA1 
and RA7 to high. 
Internal clock frequency 37 kHz, Tern = 108 |is 

-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kkkk-k-k-k 



list p=16f628, r=hex ; declare processor, 

; specyfying the radix 

#include pl6f628.inc ; include register label 

; definitions 



config h'3fl0' 



errorlevel -302 



; configuration 

; information 

; for selected processor 

; turn off banking 

; message 



movlw h' 07 ' 
movwf cmcon 
clrf porta 
clrf portb 



;07 -> w 

; w->cmcon, comparators off 
; clear PORTA output latches 
/initializes PORTB 



bsf status, rpO ;bank 1 

bef peon, oscf /internal gen. 32 kHz, 

; Tcm=10 8us 
clrf trisa ; PORTA for output 
clrf trisb ; PORTB for output 



bef status, rpO 



;bank 
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bsf portb, 
bsf portb, 7 
goto $ 



LED on 

LED 7 on 

go to self 

loop here forever 



end 



kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
I 

Note: 

The LED on RA5 is turned on despite of initializing port A and port B with 0x00: 

clrf porta ; clear PORTA output latches 



clrf portb 



/initializes PORTB 



because it is -MCLR line. 

RBO and EB7 lines are set to high with the instructions: 

bsf portb, ; LED on 



bsf portb, 7 



; LED 7 on 



Another way for turning selected LEDs on will be copying the bitmap mask to 
portB. It will be subject of test 3. 
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Test 3. Turn on the LEDs connected to various lines of port B 

(continued) 

Like Test 2, but the mask for the whole PORTB is used instead of setting up par- 
ticular lines. The mask for seting lines and 7 would be: 

movlw b'10000001' 

movwf portb 



************************************************* 

* T3 * Turning on the LEDs, connected to 
bit 1 and bit 7 of PORT B by seting RA1 

and RA7 to high. 

******************************************* 

list p=16f628, r=hex ; declare processor, 

; specyfying the radix 

#include pl6f628.inc ; include register label 

; definitions 



config h'3fl0' 



errorlevel -302 



; configuration 

; information 

; for selected processor 

; turn off banking 

; message 



movlw h' 07 ' ; 07 -> w 

movwf cmcon ; w->cmcon, comparators off 

bsf status, rpO ;bank 1 

bcf peon, oscf ; internal gen. 32 kHz, 

; Tcm=10 8us 
clrf trisa ; PORTA for output 
clrf trisb ; PORTB for output 



bcf status, rpO 



;bank 
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clrf porta ; clear PORTA output latches 

clrf portb /initializes PORTB 

movlw b'10000001' ; w <- b' 10000001" 

movwf portb ; portb <- w 

goto $ ; go to self 

end 
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Test 4. AllLEDs connected toportb blink with different 
frequencies 

For the internal generator frequency of 37 kHz the machine cycle equals 108 us. 
In order to achieve LEDs blinking with various frequency we use TMRO presca- 
ler. Frequencies are deployed within the range: 55 ms to 7.079 s according to the 
table: 

Table . Table 1 . Various times of blinking LED for particular lines of portb 






256 


* 


2 * Tcm 


1 


256 


* 


4 * Tcm 


2 


256 


* 


8 * Tcm 


3 


256 


* 


16 * T CM 


4 


256 


* 


32 * Tcm 


5 


256 


* 


64 * T CM 


6 


256 


* 


128 * Tcm 


7 


256 


* 


256 * T CM 



Bit Time calculation for TMRO register Blinking time 

55 ms 
110 ms 
221 ms 
442 ms 
885 ms 
1.769 s 
3.538 s 

7.079 s 

Prescaler value of 256 is obtained by setting up control bits PS2, PS1 and PSO in 
the OPTIONREG register as follows: 

movlw b' 10000111 ' ; preskaler 256 

movwf option_reg ;PSA=0 t0cs=Tcm presk. dla TMRO 

; prsk=2 56 

During each iteration the contents of TMRO counter is copied to PORTB> 

loop ; main loop 

movf tmrO, w ; 
movwf portb 
goto loop 

All portb lines are tested, It gives the effect of lighting cascade. 

-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k^-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 
r 

; * T4 * Blinking LEDs on portb with different fre- 
quencies 

TMRO determines the time for particular lines, 
internal clock frequency 37 kHz, Tcm = 108 us 

-kk-kk-kk-kkkk-kk-kk-kk-kk-kkkkkk-kk-kk-kk-kk-kk-kkkk-kkkk-kk-kk-kkk 

list p=16f628, r=hex ; declare processor, 
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#include pl6f628.inc 



_config h'3flO' 



errorlevel -302 



; specyfying the radix 

; include register label 

; definitions 

; configuration 

; information 

; for selected processor 

; turn off banking 

; message 



movlw h' 07 ' ; 07 -> w 

movwf cmcon ; w->cmcon, comparators off 

clrf porta ; clear PORTA output latches 

clrf portb ; initializes PORTB 

bsf status, rpO ;bank 1 

bcf peon, oscf /internal gen. 32 kHz, 

; Tcm=10 8us 
clrf trisa ; PORTA for output 
clrf trisb ; PORTB for output 

; contents option_reg 

movlw b' 10000111' ; prescaler 256 

movwf option reg ;PSA=0, t0cs=Tcm, presc. For 

; TMR0 =2 5 6 
bcf status, rpO ;bank 



loop 



movf tmrO, w 

movwf portb 
goto loop 
end 



; main loop 
; check value of the subsequent 
; bit 
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Test 5. Acoustic signal ofl kHz frequency 
generated with PWM module 



************************************************* 

* T5 * Acoustic signal received from PWM module. 

Time measured by TMR1 counter 

PWM generated signal frequency: 1 kHz 

outputed on RB3 

internal clock frequency 37 kHz, Tern = 108 us 
************************************************* 

list p=16f628, r=hex ; declare processor, 

; specifying the radix 
#include pl6f628.inc ; include register label 

definitions 



config h'3fl0' 



errorlevel -302 

#define lpr2 .249 

movlw h' 07 ' 
movwf cmcon 

movlw b' 00000010 
movwf porta 
clrf portb 
clrf tmrll 
clrf tmrlh 
clrf pirl 
bsf status, rpO 
clrf trisa 
clrf trisb 



configuration 

information 

for selected processor 

turn off banking 

message 

final value of the tmr2 

counter 

07 -> w 

;w->cmcon, comparators off 
i 

initialize PORTA 

initialize PORTB 

clear TMR1L 

clear TMR1H 
; clear pirl (tmrlif flag) 
;bank 1 

;port a output 
;port b output 



B. Borowik, Interfacing PIC Microcontrollers to Peripherial Devices, Intelligent Systems, 10 

Control and Automation: Science and Engineering 49, DOI 10.1007/978-94-007-1 1 19-8 5, 
© Springer Science+Business Media B.V. 201 1 



Interfacing 8-Bit Pic Microcontroller to Peripherial Devices 1 1 

; initialise pr2 register 

movlw lpr2 ;lpr2->w 

movwf pr2 ;pr2 <- w 

bcf status, rpO ;bank 
movlw .125 ; PWM Duty Cycle 50% 

movwf ccprll 
movlw b'00000101' ; tmr2 enabling 

; and configuring 
movwf t2con ; prescaler=4, 

; postscaler=l 
movlw b' 00001100' ;CCP configuring 
movwf ccplcon ; PWM mode 
movlw b' 00110001' ; configuration, tmrl on 
movwf tlcon ; tmrlcs=Tcm, prescaler=8 

,-overflow after 256*256 *8 *Tcm =.52 s 

loop ; main loop 

bsf status, rpO ; bank 1 

movlw b'00001000' ; w <- b'00001000' 

xorwf trisb, f ; toggling the 

; buzzer on RB3 
movlw b'00000010' ;w<-b'00000010' 

xorrwf trisa, f ; toggling LED RA1 

bcf status, rpO ; bank 
spr btfss pirl, tmrlif ; test tmrlif flag 

goto spr ; wait for setting 

; the flag up 

bcf pirl, tmrlif ; clear the flag 
goto loop 
end 

r 

-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 
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Program description 

Configuring the CCP module for PWM operation requires the following steps: 

i Setting the input signal frequency. 

T PWM = (PR2 + 1) . Tcm . T2 preS caler 

1/1 kHz = 0,001 s= 1000 |is 

Tcm = 1 |is (for f osc. = 4 MHz) 

T PWM is specified by the value of the PR2 register, the clock oscillation period and 
the prescaler value. 

Tpwm - 1000 |is matches two values: 250, 4. Let's assume prescaler value = 4 
and PR2 = 256. 

#define lpr2 .249 ; final value of the tmr2 
counter 

movlw lpr2 ; w <- lpr2 
movwf pr2 ; pr2 <- w 

movlw b' 00000101' ; tmr2 enabling and configuring 
movwf t2con ; prescaler=4, postscaler=l 



T2CON register enables or disables the timer and configures the prescaler and 
postscaler. 

Control bits 1-0 equal 01 prescaler = 4, 

Bit 2 equal 1 Timer2 is on, 

Bits 3-6 equal 0000 postscaler = 1. 

2. Assume PWM Duty Cycle equal to 50%, or 0,5. 

We set this 10 bit value by writing to the CCPR1L register and DC1M1 and 

DC1M0 bits of CCP ICON register using the following formula: 

PWM Duty Cycle = (4 x CCPR1L + 2 x DC1M1 + DC1M0) / 4 x (PR2 + 1) 

therefore 

0,5 x 4 x (PR2 + 1) = (4 x CCPR1L + 2 x DC1M1 + DC1M0) 

For PR2 = 249 on the left side we obtain 500. In 10 bit binary it is: 
500 = b'0111 110100' 

Bits are grouped because upper 8 bits represent CCPR1L register and are equal: 
125 (b'0111 1101'). 
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Lower 2 bits are equal to 0. Those values we have to write to DC1M1 and DC1M0 
bits of the CCP1CON register. 

movlw .125 ;50% PWM Duty Cycle 

movwf ccprll 



movlw b' 00001100' ;CCP configuring 
movwf ccplcon ; PWM mode 



DClMland DC1M0 are bits CCP1C0N<5:4>. 

Bits 0-3 equal to 1 100 set PWM mode. 

Some instructions refer to Timerl module operation. 



clrf tmrll 




clrf tmrlh 




clrf pirl 




movlw 


b'001 10001' 


movwf 


tlcon 



Timerl is used for toggling state on lines RB3 (buzzer) and RA1 (LED). Toggling 

time is calculated from the formula: 

256*256* 8 *Tcm = . 52 s 

because for Timerl prescaler is set to 8, and TMR1IF flag sets its value after 

whole 16 bits register (TMR1L and TMT1H) overflows. 

spr btfss pirl, tmrlif ; check tmrlif 

goto spr ; wait for setting 

; the flag up 



When TMR1 register overflows, the flag is set and TMR1 register is reset to 0. 
Then the TMR1IF flag need to be software cleared: 

bcf pirl, tmrlif ; clear the flag 
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As was shown, the value of 001 1 0001 was written to T1CON register. 
Bits <5:4> (1 1) set prescaler to 8. 

At the beginning of the program the TMR1IF flag of the PIR1 register is also 
cleared by setting whole register to 0. 
clrf pirl 

Schematic below shows connection of the piezoelectric buzzer to the module. 




gorw /*a?#> 



en 

■e 

o 
Q_ 



Fig. 10. Connection of the piezoelectric buzzer to the module. 
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Test 6. Morse code: PIC generated with PWM 

Generating the word PIC in Morse code using PWM module. 
Generating acoustic signal with PWM was described in previous test. 

■k^-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 



T6 Morse code. Acoustic signal is received from 
PWM module; Buzzer is connected to RB2 
internal gen. 4 MHz; Tern = 1 us 

-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 



list p=16f628, r=hex 
#include pl6f628.inc 



config h'3fl0' 



errorlevel -302 

cblock h'20' 
12,13 

endc 
#define lop .255 
#define lpr2 .243 



; include register label 
; definitions 
; configuration 
; information 
; for selected processor 
; turn off banking 
; message 
constant block 



; beginning of the program 



movlw h' 07 ' 

movwf cmcon 

clrf portb 

bsf status, rpO 

clrf trisb 

bsf peon, oscf 

movlw lpr2 
movwf pr2 



; 07 -> w 
w->cmcon, comparators off 

; initialize PORTB 

; bank 1 

; port b output 

; internal gen. 4 MHz, 

; Tern = 1 us 
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bcf status, rpO ; bank 

movlw .125 ;50% PWM Duty Cycle 

movwf ccprll 

movlw b'00000101' 

movwf t2con 

movlw b'00001100' 

movwf ccplcon 

bsf status, rpO ; bank 1 

bsf trisb, 3 ; buzzer off 

bcf status, rpO 

loop ; main loop 

nop ; wait, stabilize 

nop ; wait, stabilize 

; P I C . - - . . . 

call przerwa 
call przerwa 
call przerwa 
call przerwa 

call dot 
call przerwa 
call dash 
call przerwa 
call dash 
call przerwa 
call dot 

call przerwa 
call przerwa 
call przerwa 
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call dot 
call przerwa 
call dot 

call przerwa 
call przerwa 
call przerwa 

call dash 

call przerwa 

call dot 

call przerwa 

call dash 

goto loop 

; routines 
dot 

bsf status, rpO 

bcf trisb, 3 ; buzzer on 

bcf status, rpO 

call del ; dot 

bsf status, rpO 

bsf trisb, 3 ; buzzer off 

bcf status, rpO 

call del ; wait 

return 

dash ; dash = 3 * dot 

bsf status, rpO 
bcf trisb, 3 ; buzzer on 
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bcf status, rpO 
call del 
call del 
call del 
bsf status, rpO 
bsf trisb, 3 
bcf status, rpO 
call del 
return 



dash 
dash 
dash 

buzzer off 

wait 



przerwa 

call del 
call del 
return 



; delay 



del ; how long last dot and space 

; 255 x (256 x 4 cycles x lus)=ca 0.261 s 

movlw lop ; w <- .255 

movwf 13 ; 13 <- w 

clrf 12 ; clear 12 



spr 



nop ; extending delay of the inner loop 

decfsz 12, f 

goto spr ; inner loop 

decfsz 13, f 

goto spr ; outer loop 
return 
end 



Program description 
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Routine del contains nested loop. Two general purpose registers 12 and 13 are dec- 
remented. 12 is first cleared and then is decremented in the inner loop with instruc- 
tion decfsz (decrement f, skip if zero). The loop is executed 256 times. It takes 
time of 1.024 ms (256 x 4 x lus). 
13 user register is decremented 255 times. 
Loop requires about 0.261 s (255 x 1.024 ms) to execute. 
Nop instruction adds up to the number of machine cycles in one iteration. 

spr nop ; 1 cycle 

decfsz 12, f ; 1 cycle 

goto spr ; 2 cycles 
Total 4 cycles in the inner loop. 
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Test 7. LED turn on after pressing switch on RB4 

Pressing switch on RB4 toggles LED on RA1. 

************************************************* 
r 

. ^7 p re ssing switch on RB4 causes testing the state 
; of the line RA1 and changing its value: 0->l, l->0 
; internal gen. 32 kHz, Tcm=108us 

-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 



list p=16f628, r=hex 



#include pl6f628.inc 



config h'3fl0' 



errorlevel -302 

licz equ h ' 21 ' 
#define op .150 
#define ou porta, 1 
#define in portb, 4 



; declare processor, 

; specifying the radix 

; include register label 

; definitions 

; configuration 

; information 

; for selected processor 

; turn off banking 

; message 

; value for setting delay 
; LED on RA1 
; switch on RB4 



movlw h' 07 ' 

movwf cmcon 

clrf porta 
bsf status, rpO 
bcf peon, oscf 

clrf trisa 



bcf option reg, not rbpu 
bcf status, rpO 



07 -> w 

w->cmcon, comparators off 

; initialize PORTA 
bank 1 

; internal gen. 32 kHz, 
; Tcm=10 8us 
porta output 

; PORTB pull-ups 
; are enabled 
;bank 
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; routines 

lin4 

btfss in ; testing switch on RB4 
goto zapal ; turn LED on 

goto zgas ; turn LED off 



zapal 

call opoz ; delay 

bsf ou ; RA1 (LED) high 

goto lin4 

zgas 

call opoz 

bcf ou ; RA1 (LED) low 

goto lin4 

opoz ; delay (t = Tcm*3*op) 

movlw op ; w <- op 

movwf licz ; licz<-w 

decfsz licz,f ; decrement counter licz 

goto $ - 1 ; decrement again 
return 



end 



In the Hn4 loop the RB$ line status is constantly checked. 

Iin4 

btfss in ; Is switch pressed? 

goto zapal ; LED on 

goto zgas ; LED off 
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In the loop two routines are called: turning LED on and off. Both routines call 
also routine for delaying, generating delay of 48.6 ms: 



Tcm x 3 cycles xop 108 us x 3 x 150 = 48.6 ms 

On the picture below on the evaluation board, at the right down side there are two 
8 bit ports: port A and above port B. The pencil points to port B. All port B lines 
are on HIGH, except of line RB4. Diodes attached to port B are lighting, but LED 
attached to RB$ is off, because the switch connected to RB4 is pressed down. 
After pressing any of RB4 - RB7 switches the LED on RA1 get lighted. 
If no switch is depressed (high on particular port B line) then, in the Hn4 loop, af- 
ter the conditional instruction: 
lin4 



btfss in 
goto zapal 
goto zgas 



; testing switch on RB4 
; turn LED on 
; turn LED off 



the next instruction (goto zapal) is omitted. Forcing low on RB4 causes 
executing next instruction and turning LED on RA1 on. 

We see two LEDs lighting on PORT A: on RA5, which is input only port, always 
kept high. When this pin is configured as -MCLR, is an active low Reset to the 
device. LED connected to RA1 lights when switch on RB4 is pressed. 




Fig. 1 1 . Switching RB4 to low causes turning on LED on RA 1 
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Test 8. Waking the device from SLEEP with RB4 interrupt-on- 
change 

Test 8 ilustrates RB4 interrupt-on-change feature, that wakes up the controller 

from the sleep. Then LED is turned on for a 0,4 s. 

************************************************* 

T7 After pressing the switch on RB4 interrupt occurs 

and wake processor from sleep. Then the program 

continue execution: turn the LED on for a time of 

0.1 s and again the processor is put into 

SLEEP mode. 

internal gen. 32 kHz, Tcm=108us 
************************************************* 

list p=16f628, r=hex ; declare processor, 

; specifying the radix 

#include pl6f628.inc ; include register label 

; definitions 

config h'3fl0' ; configuration 

; information 

; for selected processor 

errorlevel -302 ; turn off banking 

; message 



#define wy porta, 1 ; LED on RA1 

#define we portb, 4 ; switch on RB4 

11 equ h'20' ; assign Variable Name 

; to Data Memory address 

; begining of the program 
movlw h' 07 ' ;07 -> w 

movwf cmcon ; w->cmcon, comparators off 

clrf porta ; initialize PORTA 

bsf status, rpO ; bank 1 
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clrf trisa 
clrf option reg 

bcf peon, oscf 

bef status, rpO 
clrf 11 
movf portb, f 
clrf intcon ; 
bsf intcon, rbie 



; set port a as output 
; clear option_reg, 
PORTB pull-ups are enabled 

internal gen. 32 kHz, 

Tcm=108us 

bank 

clear 11 

initialize port b 
clear intcon, clear rbif flag 
; set rbie mask 



loop ; 
sleep 
bsf wy 

call del 
bcf wy 
call del 
call del 
call del 
call del 
call del 



main loop 



; sleep mode 

; turn the LED on 

; delay . 1 s 

; turn the LED off 



btfss we ; Is the switch released? 

goto $-1 

bcf intcon, rbif : clear rbif flag 
goto loop ; 
del nop 
nop 
nop 
nop 

deefsz 11, f ; decrement 11 
goto del 



Interfacing 8-Bit Pic Microcontroller to Peripherial Devices 25 

return 

end 

************************************************* 

r 

Program description 

Four PORTB pins, RB<7:4>, if configured as inputs, have an interrupt-on-change 
feature. This interrupt sets flag bit RBIF and can wake the device from SLEEP. 
Interrupt is enabled after setting the RBIE mask: 

bsf intcon, rbie 

Interrupt on mismatch feature together with software configurable pull-upps on 
these pins allow easy interface to a switch and make it possible for wake up on 
switch depression. 
After clearing optionreg register, PORTB pull-ups are enabled. 

clrf option reg ; clear option reg, 

; PORTB pull-ups are enabled 

Instruction movf portb, f initializes PORTB, because any read or 

write of PORTB will end the mismatch condition and allow flag bit RBIF to be 
cleared. 

After sleep instruction the device enters the sleep mode and waits for interrupt 
to be waked up. 

If the interrupt is enabled by the associated Interrupt mask IE and the GIE bit is 
not set, it can wake up the controller from the sleep if interrupt occurs, but the In- 
terrupt Service Routine located in the interrupt vector will not be executed and the 
code of the program will continue execution. The interrupt flag will set when its 
associate event occurs regardless of whether or not the GIE bit is set. 
After switch is released, the RBIF flag is cleared and the device again is put to the 
sleep mode at the beginning of the loop.. 

btfss we ; Is the switch released? 

goto $-1 

bcf intcon, rbif : clear rbif flag 

goto loop ; 

Routine del causes 0.1s delay calculated from the formula: 
t = 11 x 4 x Tcm 

11 decrements 256 times 
4 machine cycles 
Tcm= 108 us 
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Test 9. Working with debugger. Turn the LED on for the 
calculated period of time. 

We will use MPLAB SIM debugging tool in the MPLAB IDE environment. 

-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 



Tl Blinking the LED, connected to bitl of PORT B, 
with delay equal to 0,75 s. 
Internal clock frequency 37 kHz, Tern = 108 |is 

-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-k 



list p=16f628, r=hex 
#include pl6f628.inc 
_config h'3fl0' 

errorlevel -302 
#def ine wy portb, 1 



#define lop 



cblock h'20' 
11, 12 

endc 

movlw h' 07 ' 
movwf cmcon 
clrf porta 
clrf portb 



declare processor, 
specifying the radix 
include register label 
definitions 
configuration 
information 

for selected processor 
turn off banking 
message 
the directive 
substitutes a text 
portb, 1 with a string 
defines value of 
9 decimal 
for register loop 
constant block 



; 07 -> w 

; w->cmcon, comparators off 
; clear PORTA output latches 
; initializes PORTB 



B. Borowik, Interfacing PIC Microcontrollers to Peripherial Devices, Intelligent Systems, 
Control and Automation: Science and Engineering 49, DOI 10.1007/978-94-007-1 1 19-8 9, 
© Springer Science+Business Media B.V. 201 1 



2d 



Interfacing 8-Bit Pic Microcontroller to Peripherial Devices 27 

bsf status, rpO ;bank 1 

bcf peon, oscf /internal gen. 32kHz, 

; Tcm=10 8us 
clrf trisa ; PORTA for output 
clrf trisb ; PORTB for output 

bcf status, rpO ;bank 

loop ; main loop 

bsf wy ; turn the LED on 

call delay ; call delay routine 

bcf wy ; turn off LED on RBI 

call delay ; call delay routine 

goto loop ; repeat main loop 

delay ;delay 0,75 s (9*256*3*108 us=0.746s) 
movlw lop ; lop ->w 
movwf 12 ; initialize 12 

clrf 11 ; initialize 11 

del deefsz 11, f ; decrement 11 

goto del ; if not 0, keep decrementing 

; 11 

deefsz 12, f ; decrement 12 

goto del ; if not 0, decrement 11 again 

return ; return to main routine 

end 



-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 



We select Debugger> Select Tool pull down menu and check MPLAB SIM. Addi- 
tional menu items will appear in the Debugger menu. 

The MPLAB SIM simulator is integrated into MPLAB IDE integrated develop- 
ment environment. 

MPLAB SIM allows us to: 
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• Modify object code and immediately re-execute it 

• Trace the execution of the object code 

The simulator is a software model, and not actual device hardware. 
When MPLAB SIM is simulating running in real time, instructions are executing 
as quickly as the PC's CPU will allow. This is usually slower than the actual de- 
vice would run at its rated clock speed. 

The speed at which the simulator runs depends on the speed of our computer and 
how many other tasks we have running in the background. 

Once we have chosen a debug tool, we will see changes in the following on the 
IDE: 

1 . The status bar on the bottom of the MPLAB IDE window should change to 
"MPLAB SIM". 

2. Additional menu items should now appear in the Debugger menu. 

3. Additional toolbar icons should appear in the Debug Tool Bar. After position- 
ing the mouse cursor over a toolbar button, a brief description of the button's 
function can be seen. 

4. An MPLAB SIM tab is added to the Output window. 




Fig. 12: MPLAB IDE Desktop with MPLAB SIM as Debugger 
In the Debug Tool Bar there are tool bar icons: 
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Table . Table 2. Debug short cut icons. 



Debuuyei Menu 


Toolbar Buttons 


Hot Key 


Run 


[> 


F9 


Halt 


■ 1 


F5 


Animate 


M> 




Step Into 


Vi 


F7 


Step Over 


w 


F3 


Step Out 


fi* 




Reset 


m 


F6 



After positioning the mouse cursor over a toolbar button we can see a brief de- 
scription of the button's function. 

Standard debug windows allow to view the actual code, as well as the contents of 
program or data memory. The watch window displays the values of registers that 
are specified. 



File Edit View Project Debugger Programmer Tools Oop^gje Window Help 



D c* 




fiecksum 0x750c 




;program migacz z petla opoznis 
;zapala i gasi diode podlaczons 
; wewnetrzny generator zegarow^ 
; rB4 Interupt nalezy ustawic 
;DIP -SW B4 na L ) 






list p=lSf628, r=hex 
^include p!6f628.inc 



_config h' 3f90' 



errorlevel 302 



; 3fl3 
; rej W 

i 3f9: 

; mask 



#define wy 



portb, 1 



,? 



> 



PICSTAPT Plus PIC16F62B 



Fig. 13. Project migacz.mcp after selecting the built-in simulator MPLAB SIM. 
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Next we select Debugger -> Reset -> Processor Reset and a green arrow shows 
where the program will begin (see Fig. 14). In our project it is the line: 

movlw h' 07 ' 

which is loading working register with the value of 7. 



m MPLAB IDE v7.30 - [E:\pi1\migacz.asm*] 



~J File Edit View Project Debugger Programmer Tools Configure Window Help 
eS a*4f| E3 : '^faBic# #ffl Checksum 0x750c > 



■* TH 1 # 1 



errorlevel -302 

#define wy 
#define lop 

cblock h'20' 
11, 12 

endc 

movlw h'07' 
movwf cmcon 



clrf porta 
clrf portb 
bcf int-con, rbie 
bsf status, rpO 
bcf peon, oscf 



;rej konfiguracyjnego 

; 3f93 LVP 

; maskuje komunikat o blec 

portb, 1 ; definicja wyjscia 
.9 ;poczatkowa zawartosc liC2 
; blok deklaracji stalych 
; adresy 2 rejestrow: 11 i 



;07 -: 
;w->cmcon wylacz comparatc 

; inicj alizuj e pc 
; inicj alizuj e pc 

/bank 1 
; gen. wewn. 32 kHz, Tcm=108 



P!CSTftp,T P!lB r-';Ci£i-»2S 



pc:0 



zdec 






bank o Ln 10, Col 



Fig. 14. After reseting a green arrow shows where the program will begin 



In order to see if the code is operating as intended, we can watch the values being 
changed in the program. Selecting View> Watch brings up an empty Watch win- 
dow. There are two pull downs on the top of the Watch window. The one on the 
left labeled "Add SFR" can be used to add the Special Function Registers into the 
watch. We select from the list following Special Function Registers: WREG, 
STATUS, PORTB, PORTA, INTCON, CMCON and sequentially after each se- 
lection we have to click Add SFR to add respective register each of them to the 
window. 

The pull down on the right, allows symbols to be added from the program. We use 
this pull down to add two our variables: 11 and 12 into the Watch window. We se- 
lect them from the list and then click Add Symbol to add them to the window. 
The Watch window should now show the address, value and name of the selected 
registers. 

To single step through the application program, we select Debugger>Step Into or 
click the equivalent toolbar icon. This will execute the currently indicated line of 
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code and move the arrow to the next line of code to be executed. After repeating 

twice Step Into the value of 7 will be moved from WREG register into SFR 

CMCON. 

The value of CMCON register in the Watch window is in red color because it was 

changed bv the previous debus operation, values that were not changed are black. 



File Edit View Project Debugger Programmer Tools Configure Window Help 





cblocb h T 20 T 

11, 12 
endc 

movlw h T 07 T 
movwf cine on 

clrf porta 
olrf portb 

bef intcon, rbie 
bsf status, rp.0 
bef peon, oscf 

olrf trisa 
clrf trisb 

bef status, rpO 
clrf porta 
clrf portb 



blok deklar 
adresy 2 r& 



;w->crncon wyl 



;ba 

gen . wewn. 32; 



J 






PICSTART Plus PIC 16F62B 



'. bank o . l_n 22, col 1 



Fig. 15 CMCON register is in red and has the value of 0x07. Highlighted is PORTB register. 



We can continue single stepping through the code. Next instructions are: clearing 
registers PORTA and PORTB and clearing RBIE bit of the INTCON register. 
Clearing the RBIE mask disables interrupt-on-change feature of PORTB. Then 
we will set RPO bit of STATUS register for selecting data memory bank 1 as is 
shown in figure 16. 
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■ ^ 


AddSFR CCPICON^W 


Add Symbol 


Address 


. Symbol . . 


Value A 




WREG 


0x07 


0003 


STATUS 


0x3C 


0006 


PORTS 


0x00 


0005 


PORTA 


0x00 


OOZO 


LI 


0x00 


0021 


L2 


0x00 


000B 


IHTCON 


0x00 


001F 


CMCOH 


0x07 




IP III III ■ P^^P ■ HI i 

PIC5TART Plus PIC 15F62B 



O 



cblocb h T 20 T 

11, 12 
endc 

movlw h T 07 T 
movwf cine on 

clrf porta 
clrf portb 

bef intcon, rbie 
bsf status, rpO 
J bef peon, oscf 

clrf trisa 
clrf trisb 

baf status, rpO 
clrf porta 
clrf portb 



I 



blok deklar 
adresy 2 re 



;w->crncon wyl 



;ba 

gen . wewn. 32; 

;po 



> 



bank 1 Ln 26, Col 1 



Fig. 16. STATUS register has the value of 0x3C in red 



The STATUS register has the value of 0x3C, binary b'001 1 1 100'. Operation: 

bsf status, rpO b 

caused the bit RPO (#5) to be set. 
Steping into executes next instruction: 

bef peon, oscf /internal gen . 32kHz, Tcm=108us 

The direction registers TRISA ad TRISB are cleared, configuring all pins of 

PORTA ad PORTB as output. 

After clearing PORTA and PORTB program enters the main loop. 
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IIP III III ■ P^MP ■ HI i 

PICSTART PIUS PIC 16F623 




;petla glowna prog 
rpO ;ba 



bsf wy ; zapal led 

call delay ; opozni 

tacf wy ; zgas led 

□all delay ; opoznienie 



goto loop 



; idz do petli 
I 



bank o Ln 40, col l 



Fig. 17. Main loop 

Two instructions: 

bsf wy 



bcf 



wy 



; turn the LED on 
; turn the LED off 



set and clear bit 1 of PORTB. To that bit is attached LED diode. After setting bit 
PORTB,l the value of PORTB register equals to 0x02, as is indicated in the 
Watch window. 
Next instruction is : 

call delay ; call delay routine 



After steping into we enter to the routine delay. 
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m'mFLAB IDEV7.30 




EDI 




File Edit View Project Debugger Programmer 


Tools Configure Window Help 








Checksum 0x750c 



» I 1 ) 1 ($■ Ws I % Q i Q ^ D i B a |Pass:2 Fa 



bsf wy ; zapal led 

call delay ; opozni. 

bcf wy ; zgas led 

call delay ; opozni en ie 



goto loop 



idz do petli 



delay : ; opozni enie ok. 0.75 sek 

; (9 * 256 * 3 * 108 [us] = 0'~ 



movlw 
movwf 

clrf 11 

del decfsz 

goto del 
decfsz 
goto del 



lop ; lop ->w 

1.2' ; inicjalizac 

,■ inicj alizac j a re : 

11, f ; pet la wewne; 

12, f ; petla zevm& 



■ ■■:::: ■■■ :;■.■■ 



pc:0xl3 W:tK9 



bsnku i_n to. Co! l 



Fig. 18. delay procedure 

Two user registers 11 and 12 are declared. They work as counters in the nested loop 

del. 

#define lop .9 /defines value of 9 decimal 

; for variable lop 
cblock h'20' ; constant block 

11, 12 
endc 

General purpose static RAM registers can be declared in data memory space start- 
ing with address h20. 

Register 11 is first cleared. Then in the inner loop (del) it is decremented and 
tested if equal 0. After first decrementing from value it receives value FF (255). 
Total count of decrements is 256. It alows for the delay of: 
256x3xl08us = 82 944 us 

256 - number of decrements 

3 - number of machine cycles: 

del decfsz 1 1 , f ; 1 machine cycle 

goto del ; 2 machine cycles 

T cm= 108 us 
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In the outer loop the counter 12 is decremented starting with value of 9 to 0. Total 
delay of the nested loop would be about: 

9 x 256 x 3 x 108 us = ca. 750 ms. 



Let us watch next screens: 




AddSFFi| CCP1CON ■ 


Add Symbolj v 


Address 


Symbol . . 


| Value 


A 




WREG 


0x09 


DDQ3 


STATUS 


OxlC 
0x02 




0006 


PORTE 


0005 


PORTA 


0x00 


0020 


LI 


0x00 




0021 


L2 


0x09 




00OB 


INTCON 


0x0 




Q01F 


CMCOH 


0x07 



| Watch 1 Watch 2 Watch 3 ' Watch A | 




bsf wy ; zapal led 

call delay ; opozni 

bcf wy ; zgas led 

call delay ; opoznienie 

goto loop ; idz do petli 

delay: ;opoznieme ok. 0.75 sek 

,-(9 * 256 * 3 * 108 [us] = Q] ' 

movlw lop ; lop ->w 
movwf 12 ; inicjalizac 

fl clrf 11 ; inicj alizac j a re' 

del decfsz 11, f ; petla wewne 
goto del 

decfsz 12, f /petla zewne 
goto del 



MPLAB SIM PICSTART Plus PIC16F62S pc :OxW W:ux9 2 dc c 



bankO Ln 51., Col 1 INS WR 



Fig. 19. Starting values of 11 and 12 in the window WATCH. 



Starting values of 11 i 12 are 0x00 and 0x09 and such values are in the WATCH 
window. 



36 



Bohdan Borowik 



IIP III III ■ P^MP ■ HI i 

A PICSTART PIUS PIC 16F62B 




opoznienie ok. 0.75 sek 
(9 * 256 * 3 * 108 [us] = Q| 



; lop ->w 
; inicjalizac: 
inicj alizacj a re 



del decfsz 
I goto del 
decfsz 
goto del 



; petla wewne 
; petla zewne 

ill 



pc:ox!6 W:0x9 



■ bank o Ln 54, col l 



Fig. 20. After first decrementing 11 changes its value from to OxFF 

Instead of continuing single stepping through the code and executing thousands of 
steps, it is better to set a breakpoint on the selected line and run the code. To set a 
breakpoint, we can put the cursor on the selected line and click the right mouse 
button. Then select Set Breakpoint from the context menu. A red "B" will show 
on the line. (One can also double click on a line to add a breakpoint.) 
On the figure below Breakpoint is set at the line, where 12 variable is decremented 
and tested., after inner loop has been executed 256 times. 

We can enter Run mode by either clicking the Run button on the Debug toolbar, 
selecting Debugger>Run from the menu bar, or pressing <F9> on the keyboard. 
Some tools provide additional types of run, such as "Run to cursor" from the right- 
mouse menu. 
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bsf wy ; zapal led 

call delay ; opozni 

bcf wy ; zgas led 

call delay ; opozni enie 

; idz do petli 




delay : ; opozni enie ok. 0.75 sek 

; (9 * 256 * 3 * 108 [us] - 0[~ 





movlw 


lop 




,■ lop ->w 




movwf 


12 




; inic j alizao 




clrf 11 




' 


inicj alizac j a re 


del 


decf sz 
goto del 


11, 


f 


; petla wewne 




decf sz 


12,| 


f 


; petla zewne 




goto del 






i 


1 



PICSTART plus IwPUB IDE v7.30. by-'&K3g W:0 x9 izdc 



bankO Ln 55, Col 19 !N5 WR 



Fig. 2 1 . Breakpoint set on the line decfsz 12, /.' 



After running application the program code is executed until a breakpoint is en- 
countered. In the outer loop we decrement the variable 12. Next breakpoint should 
be set on the instruction return, in order to exit the subroutine del and return to 
main routine. 
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AddSFR CCP1C0N 



Address Symbol. 



WREG 

00 03 STATUS 

00 06 PORTS 

00 05 PORTA 

0020 Ll 

0021 L2 

00 OB IHTCON 

00 IF CMCOH 



0x09 
OxlC 
0x02 
0x00 
0x00 
0x09 
0x00 
0x07 




bsf wy ; zapal led 

call delay ; opozni 

tacf wy ; zgas led 

aall del ay ; opo zni eni e 



goto loop 



; idz do petli 



delay : 







movlw 


lop 








movwf 


12 








clrf 11 








del 


decf ss 
goto del 


11, 


f 


Q 


1 


decf sz 
goto del 


12, 


f 


G 




return 







;opo:znienie ok. 0.7 5 sek 

; (9 * 256 + 3 * 108 [us] - 0\ 



; lop ->w 
; inic j all zac 
inicj alizacj a re 



petla wewne-: 



petla zewne 



>. ' 



^ --- i H i mi ■ . i 



' bank o l_n 55, col l 



Fig. 22. Breakpoint set on the line return - returm to the main routine 
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Test 10. Driving a 7 -Segment LED Display with PIC16F628 
microcontroller 



Below presented application was run on the prototype board Microcon4. The ap- 
plication can be used for testing all 8 lines connecting port B with the display and 
the display itself. 16 hexadecimal digits - F are shown sequentialy one after an- 
other with time span 0.9s each. 




I Common Cathode 



8 3 




b c d e f g Dec 

7 I 6 1 4| 2| 1| 9| 10| 5 



CQYP74 



10 9 8 7 6 




1 2 3 4 / 5 
Decimal point / 



gorow* 



Fig. 23 Connecting a common cathode current switch T 1 to 7-segment display 
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3>> 



40 



Bohdan Borowik 




D D D D D D D D 



E 

E 

E 

E 

\—£ 

E 

HI 

HI 

E 



tzt 



RA2 
RA3 
RA4 
RA5 
V„ 
RBO 
RB1 
RB2 
RB3 



Tl 
O 

a> 

Tl 
O) 

CO 



RA1 
RAO 
RA7 
RA6 
V„ 
RB7 
RB6 
RB5 
RB4 



I] | 

T| C 2 , C, 33 pF 



U 



^ 



m — ^-[^ 



it 



V nD = 2 - 5,5 V 



Fig. 24 Connecting a microcontroller to 7-segment display 
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The circuit is very simple. Port A, bits 0-4 are connected to the digit select lines 
directly. Port B, bits 0-7 are connected to the segment select lines through 330 Q. 
resistors. A 4MHz crystal resonator is connected to the OSC1/CLKIN and 
OSC2/CLKOUT pins of the PIC, with the center lead connected to Gnd. Vss and 
Vdd are connected to Gnd and +5V, respectively. 
; program 10 



list p=16f628, r=hex ; declare processor, 

; specyfying the radix 
#include pl6f628.inc ; include register label 

; definitions 
config h'3fl0' ; configuration 

; information 
; for selected processor 
; 3fl0 HVP (High Voltage Programming) 
; 3f90 LVP (Low Voltage Programming) 
#def ine czas . 8 

11 equ h'20' 

12 equ h'21' 



b'00111111' ; digit 

b'00000110' 

b'01011011' 

b'01001111' 

b'01100110' 

b'01101101' 

b'01111101' 

b'00000111' 

b'01111111' 

b'01101111' 

equ b'01110111' ; digit A 

equ b'01111100' 

equ b'01011000' 



dO 


equ 


dl 


equ 


d2 


equ 


d3 


equ 


d4 


equ 


d5 


equ 


d6 


equ 


d7 


equ 


d8 


equ 


d9 


equ 


dig. 


a 


digb 


dig- 


z 



42 



Bohdan Borowik 



digd 


equ 


b 


01011110' 


dige 


equ 


b 


01111001' 


digf 


equ 


b 


01110001' 


dig7 


equ 


b 


10000000' 



decimal point 



movlw h' 07 ' 
movwf cmcon 

bsf status, rpO 
bcf peon, oscf 



; 07 -> w 

; w->cmcon, 

; comparators off 

;bank 1 
; internal gen. 32 kHz, 
; Tcm=10 8us 



clrf trisa 
clrf trisb 



/PORTA for output 
;PORTB for output 



bcf status, rpO 



;bank 



clrf porta ; clear PORTA output latches 
clrf portb /initializes PORTB 



bcf porta, 6 
bcf porta, 2 
bsf porta, 



; zgas LED 
;LED 2 off 
LED on 



bsf porta, 7 

bcf porta, 5 

bcf porta, 3 

bcf porta, 1 



LED 7 on 

LED 5 off 

LED 3 off 

LED 1 off 



nop 



movlw dO 
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movwf portb 
call przerwa 

movlw dl 

movwf portb 

call przerwa 

movlw d2 

movwf portb 

call przerwa 

movlw d3 

movwf portb 

call przerwa 

movlw d4 

movwf portb 

call przerwa 

movlw d5 

movwf portb 

call przerwa 

movlw d6 

movwf portb 

call przerwa 

movlw d7 

movwf portb 

call przerwa 

movlw d8 
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movwf portb 

call przerwa 

movlw d9 

movwf portb 

call przerwa 

movlw diga 

movwf portb 

call przerwa 

movlw digb 

movwf portb 

call przerwa 

movlw digc 

movwf portb 

call przerwa 

movlw digd 

movwf portb 

call przerwa 

movlw dige 

movwf portb 

call przerwa 

movlw digf 

movwf portb 

call przerwa 

movlw dig7 
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movwf portb 

call przerwa 



goto $ 




; go to self 

; loop here forever 


przerwa 






movlw czas 






movwf 


11 




clrf 12 






spr nop 






decf sz 


12, f 




goto spr 






decf sz 


11, f 




goto spr 






return 







end 



Program description: 
The directive: 

#def ine czas . 8 

defines value of 8 decimal for register variable czas. 

In the MP ASM assembler (the assembler) that provides a platform for developing 
assembly language code for Microchip's PICmicro microcontroller (MCU) fami- 
lies, a decimal integer is d' or 'D' followed by one or more decimal digits 
0123456789' in single quotes, or, a decimal integer is V followed by one or more 
decimal digits '0123456789'. 
The directives: 

11 equ h'20' 

12 equ h'21' 

are used to assign a variable names 11 and 12 to an address locations in RAM re- 
spectively h'20' and h'21 '. 

Routine przerwa contains nested loop. Two general purpose registers 12 and 11 are 
decremented. 12 is first cleared and then is decremented in the inner loop with in- 
struction decfsz (decrement f, skip if zero). The loop is executed 256 times. It 
takes time of 110.592ms (256 x 4 x 108us). 
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4 accounts for 4 machine cycles: 

spr nop ; 1 machine cycle 

decfsz 12, f ; 1 machine cycle 

goto spr ; 2 machine cycles 

For internal gen.32 kHz,Tcm=108|is 
LI user register is decremented 8 times. 
Loop requires to execute: 

t = 108 * 4 * 8 * 256 = 884736 us = 885 ms = about 0.9 s 

Nop instruction adds up to the number of machine cycles in one iteration. 

The segments in a 7-segment display are arranged to form a single digit from to 

F as shown in the figure: 




□ 



Fig. 29 Segments of the 7-segment Display. 

Segments to 7 are marked respectively with non-capital letters: a, b, c, d, e, f, g 
and dp, where dp is the decimal point. The 8 display segments lines (0 to 7) are 
connected to the 8 PortB lines. PORTB is made output by clearing TRISB regis- 
ter. 

In order to reduce the number of pins in the device, a clever arrangement of com- 
mon cathode is employed. Since there are 8 segments (7 plus the decimal point), 
there are 8 anode connections. Onto the PORTB are put respective values, repre- 
senting particular digits from to F and at the last: the decimal point. Those val- 
ues were defined at the beginning of the program. 

Value 1 means the respective LED segment is turned on. To display 8 we need to 
put a binary b'OlllllH' on PortB. This will turn on all the LEDs except the 
decimal point. The number is simply an 8 with the middle segment off, 
b'001 1 1 1 1 1'. The decimal point has its value: b' 10000000'. 
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Test 11. Driving a 7 -Segment LED Display with PIC16F628 
microcontroller (cont.) 

Our board is containing a dual 7 segment LED display. The display is a common 
catode type, so to light a segment we need to take the relevant segment high and 
the common cathode must be connected to the OV rail. In order to reduce the I/O 
count we're multiplexing the display digits. 

Program prints two digits: '0 1' on two 7seg displays in multiplex mode. Displays 
are multiplexed with a frequency of 61 Hz: 

T multipl. = 1 us * 64 (prescaler) * 256 (counter) = 16 384 

1/T = appr. 61 Hz 



Code listing: 

list p=16f628, r=hex 



#include pl6f628.inc 
_config h'3f!0' 



b wys 



nr wys 



w_temp 



declare processor, 
specyfying the radix 
include register label 
definitions 
configuration 
information for 
selected processor 
; 3fl0 HVP (High Voltage Programming) 
; 3f90 LVP (Low Voltage Programming) 



equ 



equ 



equ 



equ 



h'20' 



h'22 



h'23 



h'24 



st_temp 

temp porta equ h'25 



2 bytes buffer b wys 
for storing digits 
for each display 
7-segment display 
number (0 or 1) 
auxiliary variable for 
storing W register 
content 

auxiliary for storing 
status register 
auxiliary for storing 
porta register 
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int 



org 

goto 

org 




start 

4 



; beginning of the program 



; beginning of the interrupt routine 
; store the contents of W and STATUS registers 



movwf 

swapf 

movwf 

bcf 

bcf 



movlw 
movwf 



w temp ; w temp <- w 

status, w 

st_temp ; st_temp <- w 

status, RPO ; bankO 

intcon, TOIF ; clear flag 

; overflow TMRO to be able 

; to react to the next 

; interrupt 



0x01 
tmrO 



; initialize TMRO 
to have the next interrupt 
in approximately 16 ms 



; chan 


g 


in 


g 


the display: 




1 -> 














f 


-> 1 


incf 








nr wys. 


f 


t 


incrementing 


movf 








nr wys, 


w 


t 


w <- nr wys 


xorlw 








0x02 




f 
t 


equal to 2 ? 

If so, set Z flag 


btf sc 








status, 


Z 


f 




clrf 








nr wys 




t 





; clearing RAO, RA1 
movf temp porta, w 
andlw Oxfc ; b'llll 1100' 
movwf temp porta 



movf 


nr wys, w 




call 


poz 




iorwf 


temp porta, 


f 


movlw 


b wys 




addwf 


nr wys, w 




movwf 


f sr 




movf 


indf, w 


f 


movwf 


portb 


t 
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; w=w or temp_porta 

; beginning of the 

; display buffer 

; W=b wys + nr wys 

read the digit from RAM 
put the digit into the 
display 



movf temp porta, w 
movwf porta 

; restoring registers 

swapf st temp, w 

movwf status 

swapf w temp, f 

swapf w temp, w 
retf ie 

poz addwf pcl,f 

dt 1,2 ; retlw 1 

; retlw 2 



start 






; the main program 


bcf 


status, 


RPO 


; bank 


movlw 


h'07' 






movwf 


cmcon 






clrf 


porta 






clrf 


portb 
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bsf 

bsf 
bcf 



bcf 

bsf 

bcf 
bsf 
movlw 
movwf 

clrf 
bcf 

clrf 



status, RPO ; bank 1 
peon, oscf ; 4 MHz 
option reg, tOcs ; Internal 

; instruction cycle clock 

; fxtal/4 
option_reg, PSA ; prescaler is 

; assigned to the TimerO module 
option_reg, PSO ; prescaler rate 

; select bits: 1/64 
option_reg, PS1 ; PSO, PS1, PS2=101 
option_reg, PS2 
h'00' 

trisb ; PORTB for output 
trisa ; PORTA for output 
status, RPO ; BANK 
nr_wys ; display # 



call int 
movlw Offh 
movwf porta 
movwf portb 
movwf temp porta 



; initialize 



clrf 



movlw 



movwf 



intcon 



OOlh 



tmrO 



; disabling all 

; interrupts 

; starting value of TMRO, 

; thus interrupt occurs 

; every 255 x 64 =16 ms 



bsf intcon, TOIE 



; enables the TMRO 
; interrupt 
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bsf intcon, GIE ; enables all interrupts 

call wyswietlanie ; reading digits , 0' 

; or , 1' to the buffer 



; main loop 



et nop 






goto 


et 




wyswietlanie 




movlw 




b wys 


movwf 




f sr 


movlw 




3fh 


movwf 




indf 


incf 




fsr,f 


movlw 




06h 


movwf 




indf 


return 






end 







; display buffer 

; store digit x 0' (3fh) 
; in the first byte 



; store digit '1' 

; in the second byte 



Program description: 
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+Sv 



|OSw1 



-1=1- 




Fig. .26 Connecting a microcontroller to 7-segment displays in multiplex mode 



Each display is turned on at a such rate, that persistence of vision of our eye 
thinks the display is turned on the whole time. As each display is turned on, the 
appropriate information must be delivered to it so that it will give the correct read- 
ing. Therefore, the program has to ensure the proper timing, else the unpleasant 
blinking of display will occur. 

Displaying digits is carried out in multiplex mode which means that the microcon- 
troller alternately prints on first and on the second display. TMRO interrupt serves 
for generating a time period, so that the program enters the interrupt routine every 
16 ms and performs multiplexing. In the interrupt routine, first step is deciding 
which segment display should be turned on. In case that the first display was pre- 
viously on, it should be turned off, set the mask for printing the digit on next 7seg 
display which lasts 16 ms, i.e. until the next interrupt. 

Operating the device is fairly straight forward. By selectively connecting a digit- 
select line (one of the 2 common cathodes) to ground and applying a positive volt- 
age to any of the segment-select lines (common anode), it is possible to illuminate 
any segment of any digit. Port B on the PIC16F628 is 8 bits wide: one bit for each 
segment. 
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1 2 3 4/ 5 

kropka dziesi^tna / 
gorow'* 20og 

Fig. 27 7 segment display 

For displaying digit '0' we have to turn on the following segments of the display: 

a, b, c, d, e, f. Into port B we have to put the value binary: b'001 11111', hexa- 

decimaly: 0x3 f. 

For displaying digit ' 1 ' we have to turn on the segments b and c. Into port B we 

have to put the value binary: b'000001 10', hexadecimaly: 0x06. 

Both values in the routine wyswietlanie we put into RAM memory to the 

variable b wys, denoting the display buffer . 



b wys 



equ 



wyswietlanie 




movlw 


b wys 


movwf 


f sr 


movlw 


3fh 


movwf 


indf 


incf 


fsr,f 


movlw 


06h 


movwf 


indf 


return 





h'20' ; 2 bytes buffer b_wys 

; for storing digits 

; for each display 

; display buffer 

; store digit , 0' (3fh) 

; in the first byte 



; store digit '1' 

; in the second byte 



Let us see the code snipett. Two displays are numbered: and 1. 
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; chain 


g 


in 


g 


the display: 




1 -> 














f 


-> 1 


incf 








nr wys, 


f 


t 


incrementing 


movf 








nr wys, 


w 


f 


w <- nr wys 


xorlw 








0x02 




f 
t 


equal to 2 ? 
If so, set Z flag 


btf sc 








status, 


Z 


f 




clrf 








nr wys 




t 





After incrementing display # becomes # 1 . That is OK. 

Incrementing display number 1 gives #2. We detect this by xoring nrwys (display 

#) with the value of 2 (0x02). Then we clear it, so display # 1 becomes # 0. 

; clearing RAO, RA1 
movf temp porta, w 
andlw Oxfc ; b'llll 1100' 
movwf temp porta 

We put to ground common cathodes of both displays, and save this setting to aux- 
iliary variable temp_porta.. Now we have to send the appropriate digit pattern to 
port B. Both digit patterns are stored in RAM memory in the INDF register. The 
first digit: (the pattern is 3fh or b'001 1 1111') has the memory address h20. The 
next digit: 1 (the pattern 06h or b'0000 0110') occupies the next memory loca- 
tion. 

movf nr wys, w 

call _poz 



In above two lines we load the display # into W register. Then we call subroutine 
_poz. If the display # was 0, we receive in W on return value of 1. If the display # 
was 1, we receive in W on return value of 2. 

poz addwf pcl,f 

dt 1,2 ; retlw 1 

; retlw 2 
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This value in W register is then ored with temp_porta register in order to turn off 
one of two 7-segment displays. If the W register was 1, the RAO receives value 
of 1, turning the attached to it 7-segment display off. If the W register was 2, the 
RA1 receives value of 1, turning the attached to it 7-segment display off. 

iorwf temp porta, f ; w=w or temp_porta 



Then the address in RAM memory of the digit pattern to be displayed is com- 
posed. To the address of the display buffer b_wys, which is 0x20 we add the dis- 
play #, which is or 1. Thus W now points to the digit pattern of '0' (0x3F) or to 
the digit pattern of ' 1' (0x06). Contents of W register is then moved to the File Se- 
lect Register and appropriate digit pattern can be read from the indf register. Ob- 
tained digit pattern is next put into port B. 

movlw b wys ; beginning of the 

; display buffer 
; W = b wys + nr_wys 



addwf 


nr wys, 


raovwf 


f sr 


movf 


indf, w 


raovwf 


portb 



; read the digit from RAM 
; put the digit into the 
; display 

Of course, to activate 7-segment display, the content of the auxiliary variable 
temp_porta has to be sent to PORTA register. 

movf temp porta, w 

movwf porta 

Restoring the contents of W and STATUS registers is the last task in the interrupt 
service routine int. 

; restoring registers 



swapf 


st temp, w 


movwf 


status 


swapf 


w temp, f 


swapf 


w temp, w 
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Test 12. Interfacing a PIC microcontroller to an LCD Hitachi 
Display. 



We used an LCD 2x 16 HMC 16225 S-PY alphanumeric display module that is 
HD44780 compatible. Display has two lines, 16 characters each. 
We work in 4-bit data transfer mode and we write strings to the upper and lower 
LCD lines. 



+ 5V 



Pin 6 
MAX232 



cihJ 




+ 5V 



Fig. 28 Connecting an LCD display to a microcontroller 

On the testing board used, the port B of the PIC microcontroller is dedicated for 
interfacing with the LCD module. It is connected to SW4 dip switch. Switches set- 
tings are as follows: 

SW1 and SW2 set to High. 

SW3 off 

SW4 on. 
We clear TRISB, so that PORTB is made output. 

Low nibble of the port B: lines PORTB <3:0> communicate with DB7(pin 14) : 
DB4 (pin 11) of the LCD Display. LCD control signals E (Enable) and RS (Reg- 
ister Select) are connected to the RB4 and RB5 microcontroller PORTB lines re- 
spectively. 

In 4-bit mode, two transfers per character / command are required. Half of the byte 
is sent in one operation, upper nibble first. 

LCD's (drivers) are slow devices when compared to microcontrollers. Care must 
be taken from having communication occur too quickly. The software will need to 
control communicaton speed and timing to ensure the slow LCD and fast micro- 
controller can stay synchronized. 



B. Borowik, Interfacing PIC Microcontrollers to Peripherial Devices, Intelligent Systems, 
Control and Automation: Science and Engineering 49, DOI 10.1007/978-94-007-1 1 19-812, 
© Springer Science+Business Media B.V. 201 1 
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When we start to communicate with the LCD module, we follow a standard LCD 
initialization sequence as recommended by the manufacturer. The initialization 
sequence must be timed precisely (see the HD44780 instruction set for details) 
and cannot be initiated before at least 30 ms have been granted to the LCD module 
to proceed with its own internal initialization (power on reset) sequence. 
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1) When interface Is 4 bits long: 
f~ Power ON J 



Walt more than 1.5 ms 
after VbDtlsesto4.sv 



RS RW DB7 DB6 DBS DB4 
11 



wait more than 4.1 rns 



RS R.W DB7 DBS DBS DB4 
1 1 



Walt more than 100 us 



RS RW DB7 DBS DBS DB4 

11 



RS R.W DB7 DBS DBS DB4 

10 



1 

X 




I/D 



BF cannct be cheeked before this instrucBon 



Functlcn set (Interface Is 8 bits long) 



BF cannct be checked before this instruction 



Functlcn set (inteiface Is 8 bits long ) 



BF cannct be checked before this instruction 



Function set (Interface Is 8 bits long ) 



Function set (set Interface to be 4 bits long). 
mtert»:e is sorts long. 



Fun; Bon Set 
Display OFF 
Display ON 
Entry Mode Set 



interface is fr4 bits long, 

Specify the number of 
disptav iiras and diameter 
font, 

The number of display lines 
and character fcnt cannot 
be cronijea afterwards. 



initialization ends 



Fig. 29 Initialization flow for LCD module: 



When the module powers up, the default data transfer mode is 8-bit. The initializa- 
tion sequence only requires commands that are 4-bit in length. The last initializa- 
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tion command needs to specify the data transfer width (4-or 8-bit). Then a delay of 
4.6 ms must be executed before the LCD module can be initialized. 



Table 2 The HD44780 instruction set: 



Instruction 


Coda 


Description 


Execution 
Time 


RS 


R/W 


DB7 


DBS 


DBJ 


DB4 


DB3 


DB2 


DB1 


DBu 


Clear 
display 





D 























I 


Clears display and returns 
cursor to the home position 
(address 0). 


1.64IT1S 


Cursor 
home 





D 




















I 




Returns cursor to home 
position (address 0). Also 
returns display being shifted 
to the original position. 
DDRAM contents remain 
unchanged. 


1.64niS 


Entry 
mode set 











11 








11 


1 


l/D 


S 


Sets cursor move direction 
( l/D), specifies to shift the 
display (S). These operations 
are performed during data 
read/write. 


40 uS 


Display 
on/off 
control 




















1 


D 


C 


a 


Sets on/off of all display 
(D), cursor on/off (C), and 
blink of cursor position 
character (B). 




Cursor/ 
display 
shift 

















1 


s/c 


R/L 






Sets cursor move or 
display shift (S/C), 
shift direction (R/L). 
DDRAM contents remain 
unchanged. 


40 uS 


Function 
set 














1 


DL 


N 


F 






Sets interface data length 
(DL). number of display 
lines (N), and character 
fbnt(F). 




Set 

CORAM 

address 











1 


CGRAM address 


Sets the CGRAM address. 
CGRAM data is sent and 
received after this setting. 


40 US 


Set 

DDRAM 

address 





D 


1 


DDRAM address 


Sets the DDRAM address. 
DDRAM data is sent and 
received after this setting 


40 US 


Read busy 
flag and 
address 
counter 





1 


BF 


CGRAM .'DDRAM address 


Reads busy flag (BF), 
indicating internal operation 
is being performed, and 
reads CGRAM or DDRAM 
address counter contents 
(depending on previous 
instruction). 


OuS 


Write to 
CGRAM or 
DDRAM 


1 





write data 


Writes data to CGRAM or 
DDRAM. 


40 US 


Read from 
CGRAM or 
DDRAM 


1 


1 


read data 


Reads data from CGRAM or 
DDRAM. 


40 US 



60 



Bohdan Borowik 



Table 3 HD44780 command bits: 



Bit Name 


Setting/Status 


l/D 

S 

D 

C 

B 

S/C 

R/L 

DL 

N 

F 

BF 


= Decrement cursor position 

= No display shift 

= Display off 

= Cursor off 

= Cursor blink off 

= Move cursor 

= Shift left 

= 4- bit interface 

= 1/8 or 1/11 Duty(1 line) 

= 5X7 dots 

= Can accept instruction 


1 = Increment cursor position 

1 = Display shift 

1 = Display on 

1 = Cursor on 

1 = Cursor blink on 

1 = Shift display 

1 = Shift right 

1 = 8- bit interface 

1 = 1/16 Duty (2 lines) 

1 =5 X 10 dots 

1 = Internal operation in progress 



RS 



R/W 



DB7:DB0 






2V 
6V 






. 7 



0.6V 



0.6V 

3 



■M ] 



0.6V 



2.2V 



s»j= 



ev 




0.6V 



Fig. 29 Data write interface timing 

The LCD controller needs 40 to 120 microseconds (uS) for writing and reading. 
Other operations can take up to 5 mS. During that time, the microcontroller can 
not access the LCD, so a program needs to know when the LCD is busy. We can 
solve this in two ways. 
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One way is to check the LCD status register BUSY bit (BF flag) found on data 
line D7 (LCD pin 14). When it is low, data is written to LCD, the LCD is ready 
for next operation. When it is high, operation is in progress and we have to wait. 
On the testing board MICROCON4, R/W line is grounded and always in low 
therefore reaing from the LCD module status-register is disabled. 
The other way to ensure, LCD is not busy, is to introduce a delays in the program. 
The delays have to be long enough for the LCD to finish the operation in process. 
The practice shows, that following delays are needed for LCD operations: 
50 ms 

4,1 ms 

100 |is 

40 |is 

Those are minimal values. Considering that the typical LCD module is an ex- 
tremely slow device, we will better select the most generous timing, adding the 
maximum number of wait states, allowed at each phase of a read or write se- 
quence: 

4 x T M c wait for data set up before read/write 

15 x T MC wait between R/W and enable 

4 x T M c wait data set up after enable 

In our experiment the following delay procedures were made: 

p50 (app. 50 ms) 

p5 (app. 5 ms) 

plOO (app 100 |is) 
When the LCD is initialized, it is ready to continue receiving data or instructions. 
If it receives a character, it will write it on the display and move the cursor one 
space to the right. The Cursor marks the next location where a character will be 
written. When we want to write a string of characters, first we need to set up the 
starting address, and then send one character at a time. 



Program code lcd2.asm 

;LCD2 text demo - 4 bit mode 

list p=16f628, r=hex ; declare processor, 

; specyfying the radix 

#include pl6f628.inc ; include register label 

; definitions 

config h'3fl0' ; configuration 

; information 
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; for selected processor 
; 3fl0 HVP (High Voltage Programming) 
; 3f90 LVP (Low Voltage Programming) 

cblock 0x20 

TMP 

adres 

al 

a2 
endc 
#def ine E portb, 4 
#def ine RS portb, 5 
org 

bsf status, rpO 
raovlw 0x00 
movwf trisb 

bsf peon, oscf ; 4 MHz 
bef status, rpO 
call initLCD 
raovlw 80h ; address of the first character, 

; first line 
call piszin 
call wys strona 

movlw OcOh ; address of the first character, 

; second line 
call piszin 
call wys_adres 
goto $ 

initLCD 

call p50 
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movlw 0x13 ; E (RB4) = 1, 

; data to be sent (RB3:RB0)=3 

; w = 0001 0011 
movwf PORTB ; w -> PORTB 
nop 
nop 

bcf E ; the Enable strobe asserted low 
call p5 

bsf E ; the Enable strobe asserted high 
nop 
nop 

bcf E 
call plOO 
bsf E 
nop 
nop 

bcf E 
call plOO 

movlw h'28' ; 4 bits mode, 2 lines, 5x7 
call piszin 

movlw . 8 ; display off 

call piszin 

movlw .1 ; display clear 

call piszin 

movlw . 6 ; entry mode 

call piszin 

movlw Och ; display on 

call piszin 
return 

; delay 100 us 

PlOO: ; wait t = 5 + 25*4 cycles 



64 



Bohdan Borowik 



movlw 0x01 
movwf al 

Out3: 

movlw 0x19 
movwf OxOE 

In3: 

decf 0x0E,l 
btfss STATUS, Z 

goto In3 
decf al, 1 
btfss STATUS, Z 

goto Out3 
return 



; delay 2 ms 

P2 : ; wait t = 4 

movlw OxOA 

movwf al 
Out2: 

movlw 0x32 

movwf OxOE 
In2: 

decf 0x0E,l 

btfss STATUS, Z 



; 1 cycle 

; 1 cycle 

; 1 cycle 

; 1 cycle 

1 cycle 

1 cycle (Z=0) , 

2 cycles (Z=l) 
2 cycles 

1 cycle 

;1 cycle (Z=0) , 

2 cycles (Z=l) 
2 cycles 

2 cycles 



10 * (6 + 50 * 4)cycles 
; 1 cycle 

; 1 cycle 

; 1 cycle 
; 1 cycle 



1 cycle 

1 cycle (Z=0) , 

2 cycles (Z=l) 



goto In2 
decf al, 1 
btfss STATUS, Z 



2 cycles 

1 cycle 

1 cycle (Z=0) , 

2 cycles (Z=l) 
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goto 0ut2 
return 



; 2 cycles 
; 2 cycles 



; delay 5 ms 

P5: ; wait t = 4 + 21 * (6 + 58 * 4) cycles 
; = 4 + 21*238 = 4 + 4 998 us 



movlw 0x15 
movwf al 

Outl: 

movlw 0x3A 
movwf OxOE 

Inl: 

decf OxOE,l 
btfss STATUS, Z 

goto Inl 
decf al, 1 
btfss STATUS, Z 

goto Outl 
return 



1 cycle 
1 cycle 

1 cycle 

1 cycle 

1 cycle 

1 cycle (Z=0) , 

2 cycles (Z=l) 
2 cycles 

1 cycle 

1 cycle (Z=0) , 

2 cycles (Z=l) 
2 cycles 

2 cycles 



; delay 50 

P50: ; wait : 

movlw OxOA 

movwf a2 
Jedziemy2 : 

call P5 

decf a2, 1 

btfss STATUS, Z 



10 * 5000 cycles 
; 1 cycle 
; 1 cycle 

; 2 cycles 
; 1 cycle 
;1 cycle (Z=0) , 

;2 cycles (Z=l) 
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goto Jedziemy2 ; 2 cycles 
return ; 2 cycles 



piszd 

movwf TMP 

bcf E 

swapf TMP, f 

movlw OcOh 

iorwf TMP,w 

andlw Oefh 

movwf portb ; high nibble transfer 

bsf RS 

bsf E 

nop 

nop 

bcf E 

swapf tmp,w 

iorlw OcOh 

andlw Oefh 

movwf portb ; ; low nibble transfer 

bsf RS 

bsf E 

nop 

nop 

bcf E 

call plOO 

return 
piszin ; RS = 

movwf TMP 

bcf E 

swapf TMP, f 



Interfacing 8-Bit Pic Microcontroller to Peripherial Devices 67 

movlw OcOh 
iorwf TMP,w 
andlw Oefh 
movwf portb 
bcf RS 
bsf E 
nop 
nop 
bcf E 

swapf tmp,w 
iorlw OcOh 
andlw Oefh 
movwf portb 
bcf RS 
bsf E 
nop 
nop 

bcf E 
call p2 
return 

wys strona movlw . 

movwf adres 
et_wys call strona 

addlw 

btfsc status, z 

return 

call piszd 

incf adres, f 

movf adres, w 

goto et_wys 
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strona addwf pel 

dt "borowik.pl" , 

wys adres movlw . 

movwf adres 

et_wysl call adresl 
addlw 

btfsc status, z 
return 
call piszd 
incf adres, f 
movf adres, w 
goto et_wysl 

adresl addwf pel 

dt "borowik", 
end 



Program description 

After clearing TRISB register and setting the internal generator frequency 4 MHz, 
the initLCD procedure is called, b 

initLCD 

call p50 

movlw 0x13 ; E (RB4) = 1, data to be sent 

; (RB3 : RBO) = 3 

; w = 0001 0011 
movwf PORTB ; w -> PORTB 
nop 
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nop 

bcf E ; the Enable strobe asserted low 

call p5 

bsf E ; the Enable strobe asserted high 

nop 

nop 

bcf E 

call plOO 

bsf E 

nop 

nop 

bcf E 

call plOO 

movlw h'28' ; 4 bits mode, 2 lines, 5x7 

call piszin 

movlw . 8 ; display off 

call piszin 

movlw .1 ; display clear 

call piszin 

movlw . 6 ; entry mode 

call piszin 

movlw Och ; display on 

call piszin 

return 



Before we can use initLCD, the delay procedures p50 (50 ms delay), p5 (5 ms 
delay) and plOO (100 us delay) must be defined. Also initLCD uses procedure for 
sending command to LCD: piszin. This procedure will be described later. 
At the beginning initLCD procedure manually sends 3 times to LCD the value of 3 
contained in the lower nibble of port B. Transfer is through raising and lowering 
the Enable strobe line.: 
initLCD 

call p50 ; 50 ms delay 
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movlw 0x13 



movwf PORTB 

nop 

nop 

bcf E 

call p5 

bsf E 

nop 

nop 

bcf E 

call plOO 

bsf E 

nop 

nop 

bcf E 

call plOO 



E (RB4) = 1, data to be sent 
(RB3 : RBO) = 3 

w = 0001 0011 
w -> PORTB 



the Enable strobe asserted low 



the Enable strobe asserted high 



the Enable strobe asserted low 



100 us delay 



For transfering informations to LCD, the line E (Enable) is used. It is carried out 
with the sequence: 

bsf E ; the Enable strobe asserted high 

nop 
nop 
bcf E ; the Enable strobe asserted low 

Raising and lowering voltage on the line is called strobe. It activates information 
transfer. Both the data and control lines are on the same port: port B, therefore 
care has to be taken, that line E is on the low state, otherwise any unwanted in- 
formation can be sent to LCD. Usualy most of operation is performed on the 
working register W and, when the byte is ready to sent, it is splited into 2 nibbles, 
they are one after another moved to low 4 lines of port B and then the strobe sig- 
nal is generated. 

Next initialization sequence: sending commands: 0x28, 0x08, 0x01, 0x06 and 
0x0c is implemented with the transfer procedure piszin, as shown below: 
movlw h'28' ; 4 bits mode, 2 lines, 5x7 



call piszin 
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movlw . 8 
call piszin 
movlw . 1 
call piszin 
movlw . 6 
call piszin 
movlw Och 
call piszin 
In binary it looks as below: 

10 
10 



; display off 

; display clear 

; entry mode 

; display on 



} 



( 28) interfejs 4-bitowy, 2 linie 




10 



} 



( 08) display off 








: > 



(01) display clear 




110 



} 



( 06) entry mode set 




110 



} 



( 0C) display on 



Executing each command requires at least 1.6 ms. We provide after each transfer 
the 2 ms delay. The respective call (callpl) is included in the piszin procedure. 
The description of the piszin procedure, for transferring commands to LCD: 



piszin 

movwf TMP 
bcf E 



; RS = 



; the Enable asserted low 
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swapf TMP,f 
movlw OcOh 
iorwf TMP,w 
andlw Oefh 
movwf portb 
bcf RS 
bsf E 
nop 
nop 
bcf E 

swapf tmp,w 
iorlw OcOh 
andlw Oefh 
movwf portb 
bcf RS 
bsf E 
nop 
nop 

bcf E 
call p2 
return 



Before calling piszin, the byte to be sent is loaded to the working register W. 
The LCD controller contains two separately addressable 8-bit registers: one for 
ASCII data and one for commands. LCD has an address line, RS, for the register 
selection. Its settings have the following meaning: 

Register Select Control RS: 

1 = LCD in data mode 

= LCD in command mode. 



First we assert the Enable strobe low, 
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bcf E ; the Enable asserted low 

The byte to be sent has two nibbles. We have to send higher nibble first. Send op- 
eration is made on the lower 4 lines of PORTB. Therefore the byte has to be swa- 
ped and its higher part is on the lower position. Next we have to clear bits 4 th and 
5 th , so that lines RB4 (E signal) and RB5 (RS line) of port B will be cleared. We 
do this with or and and operations (commands: iorwf and andlw). 
swapf TMP, f 

raovlw OcOh 

iorwf TMP,w 

andlw Oefh 

movwf portb 



Example: 

If we are to send command byte 0x28, we first load the value to variable register 
TMP. After swapf operation, TMP register will contain 0x82, binary b'1000 
0010'. We have to make sure, that line 4 (Enable) is zero. Therefore we perform 
inclusive or operation of this value with the mask b' 1 100 0000', so that bits 6 and 
7 are set, and lower bits are preserved without changes. Then we make and opera- 
tion with the mask: b'1110 1111' and bit 4th is cleared. This looks as follows: 
TMP = 1000 0010 (0x82) 



OR 


1100 0000 




RESULT 


1100 0010 


; result goes to W 


W 
AND 


1100 0010 
1110 1111 




RESULT 


1100 0010 


; result stays in W 



Then the W value is moved to PORTB. 
Now we manualy clear RS line: 

bcf RS 

and raise strobe line for three machine cycles: 

bsf E 

nop 
nop 

bcf E 
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Now it is time to send next nibble. TMP register is swapped again. After iorlw and 
andlw operations with tha same masks result is moved to PORTB: 

swapf tmp,w 



iorlw 


OcOh 






andlw 


Oefh 






movwf 


portb 






bcf 


RS 






bsf E 








nop 








nop 








bcf 


E 






call ] 


?2 






return 








TMP = 


0010 1000 


(0x28) 


OR 




1100 0000 




RESULT 


1110 1000 


; result goes to W 


AND 


W 


1110 1000 

mo mi 




RESULT 


1110 1000 


; result stays in W 



At the very end, after transferring whole byte, the delay 2 ms is made. 

call p2 



After initialising LCD we have to address upper or lower line of LCD. LCD con- 
troller recognizes address command, if the MSB is set. Therefore the addres of the 
beginning of the upper LCD line would be not 0x00, but 0x80, binary 10 
0. For the lower line addres starts with 0x40. After seting the MSB it would be 
in hex: OxCO, binary 1 100 0000. 
Because those addresses are commands, RS line has to be held low. 



movlw 8 Oh 
ter, first line 

call piszin 



address of the first charac- 
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We like to display in the upper line the string : borowik.pl. We generate this string 
and store in the memory with the procedure wysstrona. 

wys strona movlw . 

movwf adres 
et_wys call strona 
addlw 

btfsc status, z 
return 
call piszd 
incf adres, f 
movf adres, w 
goto et_wys 

strona addwf pel 

dt "borowikpl",0 

In the above procedures we form a lookup table. First we load to the working 
register W and to the variable address. Then we call the one line procedure 
strona. Contents of W is table offset value. It is added to the Program Counter. 
Upon return W contains one by one all characters from the string. String is null 
terminated and after each return (retlw) contents of W is checked, if it is zero. If 
zero, procedure wys _strona ends. If not zero, character is sent to LCD in the pro- 
cedure piszd, variable address determining table offset is incremented, is moved to 
W and again is called procedure strona. 

dt directive (Define Table) generates a series of RETL W instructions, one in- 
struction for each character in the string. Each character in a string is stored in its 
own RETL W instruction. This directive is used when generating a table of data 
for the PIC12/16 device family. If we were using a PIC18 device, it is recom- 
mended that we use the table read/write (TBLRDlTBLWT) features instead. 
Let us again consider one line procedure strona 
Strona addwf pel 

dt "borowik.pl" , 



Reviewing program memory we can notice, that those lines are expanded as fol- 
lows: 

strona addwf PCL , f 

retlw 0x62 ; ASCII character 'b' 

retlw 0x6F ; ASCII character 'o' 
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retlw 0x72 

retlw 0x6F 

retlw 0x77 

retlw 0x69 

retlw 0x6B 

retlw 0x2E 

retlw 0x70 

retlw 0x6C 



ASCII character 'r' 
ASCII character 'o' 
ASCII character 'w' 
ASCII character T 
ASCII character 'k' 
ASCII character'.' 
ASCII character 'p' 
ASCII character '1' 



All those characters give the string "borowik.pl" that we see displayed on the 
LCD. Similarity in the second line there is displayed "borowik" (see procedure 
wys adres). 




Fig. .30 Strings displayed on LCD. 

Procedure piszin, described earlier sends commands to the LCD controller. Proce- 
dure piszd for sending data (ASCII characters) to LCD is similar. The only differ- 
ence is, that the RS (Register Select) line must be set high. 
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Test 13. Timer 

Real Time Clock emulation on the LCD 
Source code: 

;LCD5 text demo - 4 bit mode 

; RTC emulation 



LIST p=16F628 

include "P16F628 . inc" 

config0x3F10 ; configuration information 



/constant block 



counter for delay procedure 



first digit of hours 
second digit of hours 
first digit of minutes 
second digit of minutes 



cblock 0x20 
TMP 

al 

a2 

a3 

a4 

gl 

g2 

ml 

m2 
endc 
#def ine E portb, 4 
#def ine RS portb, 5 
org 

bsf status, rpO 
movlw 0x00 
raovwf trisb 

bsf peon, oscf ; int. gen. 4 MHz 
bef status, rpO 
call initLCD 
movlw 0x30 ; ASCII code of '0' character 



B. Borowik, Interfacing PIC Microcontrollers to Peripherial Devices, Intelligent Systems, 
Control and Automation: Science and Engineering 49, DOI 10.1007/978-94-007-1 1 19-813, 
© Springer Science+Business Media B.V. 201 1 
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movwf gl ; loading ' ' character to gl 

movwf g2 ; loading ' ' character to g2 

movwf ml ; loading ' ' character to ml 

movwf m2 ; loading ' ' character to m2 

; pok - procedure showing the time 

; in the format: HH:MM (hours : minutes) 



pok call gol 
call go2 
call mil 
call mi2 
incf m2 , f 
movf m2 , w 
xorlw 0x3A 
btfsc status, Z 
call nl 
call pmin 
goto pok 



; shows first digit of hours (gl) 

; shows second digit of hours (g2) 

; shows first digit of minutes (ml) 

; shows second digit of minutes (m2) 
; increments minutes (m2) 

; m2 -> W 

; reached m2 10 minutes yet? 

; checking zero flag 

; nl, if m2 reached ten minutes 

; wait 1 minute 

; shows new time 



nl movlw 0x30 
movwf m2 

incf ml, f 

movf ml,w 
xorlw 0x36 

btfsc status, Z 
call n2 
return 



W <- '0' 

m2 <- W nbr of minutes 

again 

increment ml (tens of 

minutes) 

ml -> W 

reached ml 6 (60 minutes) 

yet? 

Z flag 

n2, if ml reached 6 
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n2 movlw 0x30 
movwf ml 

incf g2, f 
movf g2,w 
xorlw 0x3A 
btfsc status, Z 
call n3 
return 



W <- , 0' 

ml <- W nbr of tens of 

minutes again 

increment g2 (hours) 

g2 -> W 

reached g2 10 hours yet? 

flaga Z 

n3, if g2 reached ten hours 



n3 movlw 0x30 
movwf g2 

incf gl, f 
movf gl,w 
xorlw 0x32 
btfsc status, Z 
movlw 0x30 
movwf gl 
return 



W <- , 0' 

g2 <- W nbr of hours 

again 

increment gl 

gl -> W 

reached gl 2 (20 hours) 

flaga Z 

'0' ASCII 

'0' do gl 



yet? 



initLCD 

call p50 

movlw 0x13 

movwf PORTB 

nop 

nop 

bcf E 

call p5 

bsf E 

nop 

nop 
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bcf E 
call plOO 
bsf E 
nop 
nop 

bcf E 
call plOO 
movlw h'28 ' 
call piszin 
movlw . 8 
call piszin 
movlw . 1 
call piszin 
movlw . 6 
call piszin 
movlw Och 
call piszin 
return 

; pause 100 us 

PlOO: ;wait t = 5 + 25*4 cycles 

movlw 0x01 ; 1 cycle 

movwf al ; 1 cycle 
Out3: 

movlw 0x19 ; 1 cycle 

movwf OxOE ; 1 cycle 
In3: 

decf 0x0E,l ; 1 cycle 

btfss STATUS, Z ; 1 cycle (Z = 0), 

; 2 cycles (Z = 1) 

goto In3 ; 2 cycles 

decf al,l ; 1 cycle 
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btfss STATUS, Z 

goto 0ut3 
return 



; 1 cycle (Z = 0) , 
; 2 cycles (Z = 1) 

; 2 cycles 

; 2 cycles 



r 






; Pause 


2 ms 


P2 : ; wai 


t 


t 


= 4 + 10 


* (6 + 50 * 4)cycles 


movlw 


Ox 


0A 


;1 


cycle 


movwf 


al 




;1 


cycle 


Out2: 










movlw 


Ox 


32 


;1 


cycle 


movwf 


a2 




;1 


cycle 


In2: 










decf 






a2,l 




1 cycle 


btfss 






STATUS, Z 




1 cycle (Z = 0) , 

2 cycles (Z = 1) 


goto 






In2 




2 cycles 


decf 






al,l 




1 cycle 


btfss 






STATUS, Z 




1 cycle (Z = 0) , 

2 cycles (Z = 1) 


goto 






Out2 




2 cycles 


return 










2 cycles 



/Pause 5 ms 

P5: ;wait t = 4 + 21 * (6 + 58 * 4)cycles 
; = 4 + 21*238 = 4 + 4 998 us 

movlw 0x15 ; 1 cycle 

movwf al ; 1 cycle 
Outl: 

movlw 0x3A ; 1 cycle 
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movwf a 4 


; 1 


cycle 






Inl: 










decf 


a4,l 




1 


cycle 




btf ss 


STATUS, Z 




1 


cycle 


(Z = 0), 








2 


cycles 


(Z = 1) 


goto 


Inl 




2 


cycles 




decf 


al,l 




1 


cycle 




btf ss 


STATUS, Z 




1 


cycle 


(Z = 0), 








2 


cycles 


(Z = 1) 


goto 


Outl 




2 


cycles 




return 






2 cycles 





; Pause 50 

P50: ; wait T 

movlw OxOA 

movwf a2 
Jedziemy2 : 

call P5 

decf a2, 1 

btf ss 

goto 
return 



10 * 5000 cycles 
1 cycle 

1 cycle 

2 cycles 

; 1 cycle 



STATUS, Z ; 1 cycle (Z = 0), 

; 2 cycles (Z = 1) 

Jedziemy2 ; 2 cycles 

; 2 cycles 



piszd 

movwf TMP 
bcf E 

swapf TMP, f 
movlw OcOh 
iorwf TMP,w 



Interfacing 8-Bit Pic Microcontroller to Peripherial Devices 83 

andlw Oefh 

movwf portb 

bsf RS 

bsf E 

nop 

nop 

bcf E 

swapf tmp,w 

iorlw OcOh 

andlw Oefh 

movwf portb 

bsf RS 

bsf E 

nop 

nop 

bcf E 

call plOO 

return 

piszin ; RS = 

movwf TMP 
bcf E 

swapf TMP, f 
movlw OcOh 
iorwf TMP,w 
andlw Oefh 
movwf portb 
bcf RS 
bsf E 
nop 
nop 
bcf E 
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swapf tmp,w 

iorlw OcOh 

andlw Oefh 

movwf portb 

bcf RS 

bsf E 

nop 

nop 

bcf E 

call p2 

return 

; Pause 1 min 

; 60 times runs psec procedure 

pmin : 

movlw 0x3c ; 0x3c = 60 

movwf a4 ;a4<-60 
Jedziemy7 : 

call psec ; 2 cycles 

decf a4,l ; 1 cycle 

btfss STATUS, Z ; 1 cycle (Z = 0), 

; 2 cycles (Z = l; 

goto Jedziemy7 ; 2 cycles 



return ; 2 cycles 



; psec procedure, 

; waits 0.5 s, shows colon ' : ' on third position 

; of LCD (address 0x82), 

; again waits 0.5 s and replaces y : ' with space , , 

psec movlw 82h ; third positions of 
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call piszin 
movlw 0x3a 



LCD address 

send address to LCD 

' : ' ASCII 



call piszd 



; send ascii character to LCD 



; 10 times calling p50 procedure 
; 10x50ms=0.5s 



movlw 0x0a 
movwf a 3 
j4 call p50 
decf a3, 1 
btfss status, Z 
goto j4 



10 -> W 
W -> a3 



; again send the third positions of LCD address 
movlw 82h ; third positions of 

; LCD address 
call piszin ; send address to LCD 

movlw 0x20 ; ' ' (ascii code of space) 
call piszd 



; calling the pause 50 ms 10 times 
movlw 0x0a ; 10 -> W 
movwf a3 ;W->a3 
j5 call p50 
decf a3, 1 
btfss status, Z 
goto j5 
return 
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; procedures gol, go2, mil i mi2 write time to LCD 

; as HH:MM 

; between hours and minutes procedure psec 

; writes flickering colon 

: (position 82h) 

gol movlw 0x80 ; LCD, first line, first character 

call piszin 

movf gl,w ; gl -> W 

call piszd 

return 

go2 movlw 0x81 ; first line, second character 
call piszin 

movf g2,w ; g2 -> W 

call piszd 
return 

mil movlw 0x83 ; first line, 4th character 
call piszin 

movf ml,w ; ml -> W 

call piszd 
return 

mi2 movlw 0x84 ; first line, 5th character 
call piszin 

movf m2 , w ; m2 -> W 

call piszd 
return 



end 
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Program description 

When microcotroller powers on, it starts counting the time and shows the time on 
the LCD display in the format HH:MM. Colon between hours and minutes is 
flickering with the frequency of 1 Hz. After 60 s number of minutes increases with 
1. When the number of minutes reaches 10, it is cleared and tne number of tens of 
minutes is increased. When it reaches 6 (when it is 60 minutes), the number of 
hours increases and number of minutes is cleared and so on. Detailed explanation 
is in comment lines. 
The application measures time correctly. 




Fig. 3 1 Emulating the Real Time Clock. The colon blinks with the 1 Hz frequency. 
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Test 14. Dual RS232 software interface for PC and PIC 
microcontroller 

In many PICMicros a built in serial interface, known as USART for "Universal 
\Synchronous/Asynchronous Receiver/Transmitter" is available. This hardware al- 
lows data to be received and sent without any software involvement. To send data, 
the USART simply shifts the data out (low byte first) to the TX I/O pin. 
To receive data, the USART works by polling (sampling) the serial data input line 
at sixteen times the data rate. When a "low" is detected, the hardware waits 8 poll- 
ing cycles to check to see if the line is still low half a bit period later. If it is, then a 
bit is read every sixteen polling clocks until the whole byte has been read in. At 
the end of the byte, the Stop bit is checked to be high. If the byte is received with- 
out any problems, a byte received flag is set. 

The software presented in our test provides similar serial interface functions while 
using not USART module, but general purpose I/O pins. This type of interfacing 
is known as "Bit Banging". On the testing board serial input is connected to mi- 
crocontroller pin 1 (PIC16F628 RA2). Serial output is connected to microcontrol- 
ler pin (RA1). The Maxim "Max232" chip was used because it usesa single +5 
Volt power supply. The schematic diagram is presented below. 



Display LCD 2 x 16 



PC 



HyHyyHldyyiSlHHHHffl 





1 
2 




3 


DB-9 


— 4 
1 5 




gor<w"*<%j> 



Fig. 32 Schemaic diagram for TX/RX operations 
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Program source code: 

; trans2.asm - demo application for the data 

; transmission between PIC microcontroller and PC. 

; ASCII values entered on the terminal window 

; are transmitted by the RS232 link to the controller 

; and displayed on the 2x16 LCD. 

; The microcontroller sends feedback of received 

; characters back to the issueing terminal window. 

; Because we had troubles with using 

; the built-in serial support USART, 

; we designed our own code to implement 

; serial communication. 

; Such approach is called "bit banging". 

list p=16f628, r=hex ; declare processor, 

; specifying the radix 
#include pl6f628.inc ; include register label 

; definitions 
config h'3fl0' ; configuration information 
; for selected processor 
; 3fl0 HVP (High Voltage 
; Programming) , 
; 3f90 LVP (Low Voltage 
; Programming) 

#define E portb, 4 ; LCD on portB 
#define RS portb, 5 

tmp equ h'29' ; auxiliary variable for 

; transmitting/receiving data 
adres equ h'2E' ; variable for addressing 
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al equ h'2F' 
a2 equ h'30' 



; program memory 

; counter for delay procedures 



a4 equ h'32' 
bl equ h'33' 

b2 equ h'34' 



auxiliary variable for serial 
communication 



t6 equ h'36' 

tmpl equ h ' 38 ' 

tmp3 equ h'39' 

WAIT: MACRO TIME 

; Delay for TIME us. 

; Variable TIME must be in multiples 

; of 5 us. 
MOVLW (TIME/5) - 1 ; lus to process 
MOVWF TMP1 ; lus to process 

CALL WAIT5U ; 2us to process 

ENDM 



org 

movlw h' 07 ' 

movwf cmcon 

bsf status, rpO 

bcf peon, 1 

movlw 0x00 

movwf trisb 

BCF TRISA, 1 

movlw . 4 

movwf trisa 



; Power On Reset 
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bsf peon, oscf ; int. gen. 4 MHz 
bef status, rpO 
movlw 0x20 
movwf fsr 



call initLCD 

movlw 80h ; LCD, first line 

call piszin 

movlw . 2 

movwf b2 ; counter 

; 2 times send string „boro" 

att call wys micro 

; procedure wys micro reads characters from 

; the string "boro" one after another, 

; displays them on led 

; and send them for transmission 

bsf porta, 1 ; RA1 on high (transmission in 

; idle state) 

call p50 ; delay 50 ms 
call p50 
decf sz b2, f 

goto att ; repeat it 2 times 

; the text „boro" was transmitted to PC 2 times 

; Then we enter ASCII characters on the terminal 

; window on PC 

; Microcontroller PIC receives them on the line RA2 

at2 call p50 

call rs rxd ; data reception 



92 



Bohdan Borowik 



movwf t6 ; save received byte to 

; t6 variable 

call piszd ; display character on the led 

call rs tdx ; echoing 
; transmission of received characters 
; back to the issueing terminal window 



call p50 
call p50 
call p50 
call p50 
goto at2 



; delay for demo purposes 



; loop forever 



initLCD ; LCD initialisation 

call p50 
movlw 0x13 ; E (RB4) = 1, data to be sent 

; (RB3 : RBO) = 3 

; w = 0001 0011 
movwf PORTB ; w -> PORTB 
nop 
nop 
bef E 
call p5 
bsf E 
nop 
nop 

bef E 
call plOO 
bsf E 
nop 
nop 
bef E 



the Enable strobe asserted low 



the Enable strobe asserted high 
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call plOO 
movlw h'28 
call piszin 
movlw . 8 
call piszin 
movlw . 1 
call piszin 
movlw . 6 
call piszin 
movlw Och 
call piszin 
return 



; 4-bit mode, 2 lines 

; display off 

; display clear 

; entry mode 

; display on 



/pause 100 us 
















PlOO: 




f 


wait t = 


= 5 + 25*4 


cycles 


movlw 


0x01 


r 


1 


cycle 








movwf 


al 


r 


1 


cycle 








Out3: 
















movlw 


0x19 


r 


1 


cycle 








movwf 


a2 


r 


1 


cycle 








In3: 
















decf 


a2,l 








1 


cycle 






btf ss 


STATUS, Z 






1 


cycle 


(Z = 


= 0), 












2 


cycles 


(Z 


= 1) 


goto 




In3 






2 


cycles 






decf 




al,l 






1 


cycle 






btf ss 




STATUS, 


Z 




1 
2 


cycle 
cycles 


(Z = 

(Z 


= 0), 

= 1) 


goto 




Out3 






2 


cycles 






return 










2 


cycles 







; pause 2 ms 
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P2 : ; wait 


t = 


4 + 


10 * 


(6 


+ 50 * 4) cycles 


movlw 


Ox 


OA 




;1 


eye 


Le 




movwf 


al 






;1 


eye 


Le 




Out2: 
















movlw 


Ox 


32 




;1 


eye 


Le 




movwf 


a2 






;1 


eye 


Le 




In2: 
















decf 


a2 


,1 




;1 


eye 


Le 




btf ss 






STATUS, Z 




1 


cycle (Z = 0) , 














2 


cycles (Z = 1) 


goto 






In2 






2 


cycles 


decf 






al,l 






1 


cycle 


btf ss 






STATUS, Z 




1 


cycle (Z = 0) , 














2 


cycles (Z = 1) 


goto 






Out2 






2 


cycles 


return 












2 


cycles 



P5: 



pause 5 ms 

wait t = 4 + 21 * (6 + 58 * 4)cycles 

= 4 + 21*238 = 4 + 4 998 us 



movlw 


Ox 


15 


r 


1 


cycle 






movwf 


al 




r 


1 


cycle 






Outl: 
















movlw 


Ox 


3A 


r 


1 


cycle 






movwf 


a4 




r 


1 


cycle 






Inl: 
















decf 






a4,l 






1 


cycle 




btf ss 






STATUS, 


Z 




1 
2 


cycle (Z = 
cycles (Z 


0), 
= 1) 


goto 






Inl 






2 


cycles 




decf 






al,l 






1 


cycle 
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btf ss 


STATUS, Z 


1 


cycle (Z = 0) , 






2 


cycles (Z = 1) 


goto 


Outl 


2 


cycles 


return 




2 


cycles 



; pause 50 ms 

P50: ; wait T = 10 * 5000 cyclei 



movlw 


OxOA 


; 1 


cycle 






raovwf 


a2 


; 1 


cycle 






Jedziemy2 












call 




P5 ; 2 


cycles 




decf 




a2,l 


; 1 


cycle 




btf ss 




STATUS, Z 


; 1 


cycle (Z = 


= 0), 








; 2 


cycles (Z 


= 1) 


goto 




Jedziemy2 


; 2 


cycles 




return 






; 2 


cycles 




r 

piszd 




; sending 


character 


to t 


raovwf 


TMP3 










; movwf 


t6 










bcf 




E 








swapf 




TMP3, f 








movlw 




OcOh 








iorwf 




TMP3,w 








andlw 




Oefh 








movwf 




portb 


; high nibble 


tran 


bsf 




RS 








bsf 




E 








nop 












nop 
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bcf 




E 




swapf 




tmp3, w 




iorlw 




OcOh 




andlw 




Oefh 




movwf 




portb 


; low nibble transfer 


bsf 




RS 




bsf 




E 




nop 








nop 








bcf 




E 




call p 


100 






return 








)iszin ; 


RS = 


=0, sending 


instruction to the led 


movwf 




TMP3 




bcf 




E 




swapf 




TMP3, f 




movlw 




OcOh 




iorwf 




TMP3,w 




andlw 




Oefh 




movwf 




portb 




bcf 




RS 




bsf 




E 




nop 








nop 








bcf 




E 




swapf 




tmp3, w 




iorlw 




OcOh 




andlw 




Oefh 




movwf 




portb 




bcf 




RS 




bsf 




E 
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nop 
nop 

bcf E 

call p2 
return 



WAIT5U: 

; this takes 5 us to complete 
NOP ; 1 us to process 

NOP ; 1 us to process 

DECFSZ TMP1,F ; 1 us if not zero, 

; 2 us if zero 
GOTO WAIT5U ; 2 us to process 
RETLW 



rs tdx 




; transmission routine 


movf 


t6, w 


; w <- t6 


movwf 


tmp 




movlw 


.9 


8 data bits + 1 stop bit 




f 


(8 + 1 = 9) 


movwf 


bl 




bsf 


status, 


C 


bcf 


porta, 


1 


rs txl 






call 


P 5 




call 


p2 




call 


p2 




wait 


.50 


; wait 50 us 



; total: 5 + 2 + 2 + 0,050 = 9,05 ms 
rrf tmp, f ; right shift 

btfsc status, c ; check the state 
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goto 


si 




goto 


cl 


si 


bsf 


porta, 1 




goto 


dl 


cl 


bcf 


porta, 1 


dl 


decf sz 


bl, f 




goto 


rs txl 



of C flag, if it is 

it is high 

it is low 

bring RA1 (transmit) 

high 

;bring RA1 (transmit) low 



call 


P 5 


call 


p2 


call 


p2 


wait 


.50 


call 


P 5 


call 


p2 


call 


p2 


wait 


.50 


return 




rs rxd 




movlw 


.8 


movwf 


bl 


btf sc 


por 



; long delay after 

; transmitting the byte 



goto 



; reception routine 

; 8 bits to be received 

porta, 2 ; polling the RA2 line 
; until the leading edge 
; of the Start bit is detected 

rs rxd 



; delay of 2 + 2 + 0,520 = 4,52 ms, 
; approximately H of the bit time 
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call p2 

call p2 
wait .520 
rs rxl 

; sampling the middle of the each of the 8 bits 

; of data after delaying 9.05 ms (app. bit time) 

call p5 

call p2 

call p2 

wait .50 ; macro for delay 50 us 

bcf status, C ; clearing C flag 
btfsc porta, 2 ; is RA2 input line low 

; or high? 
bsf status, C ; if high, C = 1 

; otherwise C remains 
rrf tmp, f ; rotate right variable tmp 

; through Carry Flag 

decfsz bl, f ; all bits received yet? 
goto rs rxl ; receiving next bit 

movf tmp, t6 ; store received byte 

; to t6 

movf tmp, w ; and to W 
return 

wys micro ; reading lookup table 

; displaying the character on LCD 
; and sending it to transmission 

movlw . 

movwf adres 
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et w 



call 



napis 



; call lookup table 



addlw 



.0 ; if the text terminated, 
; the Z flag will be set 



btf sc 


status, z 






return 








movwf t6 


; store 


the read character 




; to 


t6 


variable 


call 


piszd 


f 


character sent to 1 


call 


rs tdx 


f 


character sent 






t 


for transmission 


incf 


adres, f 


f 


next character 


movf 


adres, w 






goto 


et w 






napis addwf 


pel, f 


t 


Add offset to table 






f 


base pointer 


dt " boro ", 


t 


create table 



end 



Program description 

We use Bit-Banging method to emulate serial port. In this method we manage all 

synchronization and timing signals and we have to ensure proper setup and times 

for reading and writing data to the ports. 

Bits are transfered in ,,8-N-l" format which means that eight data bits are sent 

with a single (low) Start Bit and high Stop Bit to make up a data packet. "8-N-l is 

a simple and convenient protocol. The packet ends with a "1" being sent as a Stop 

Bit, to allow the "0" Start Bit to be easily recognised. In the idle state the line is on 

high. N letter means that no parity checking is performed. 

Each bit is transmitted for a set period of time, the reciprocal of which is the "data 

rate". Common data rates are 300, 1200, 2400, 9600, 19200 bps. As equipment 
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got faster, the data rates became multiples of these speeds. For the rate 9600 bps 
the bit time is: 

1/9 600 = 104.1 us 

In our experiment we use the slow transmission: 110 bps. For this rate the bit time 
is: 

1/1 10 = 9.09 ms 

The signal for each bit, whether 1 or 0, has to stay on the transmit line over the 
time of app. 9.09 ms. We achieve this delay adding up: 2ms+ 2ms + 5ms + 50 us 
— 9.05 ms. The least significant bit is sent first, immediately after the start bit that 
is always low (0). 

The start bit is an initial zero bit and the stop bit is a trailing one bit. The binary 
code b'0 1 00000 1' (code of the character 'A') is actually transmitted as follows: 
first the start bit 0, then 8 bits in reversed order and the stop bit high: : -> 
0,0,1,0,1,0,0,1,0,1 with the start and stop bits added and the least significant bit 
sent first. The signal line idles at a ' 1 ' (high) normally so the start bit is a change 
from idle to a and the stop it continues at a one. 

It is good custom to end the tranmission with 2 stop bits (8N2), while perform re- 
ception with the format 8N1. It provides some synchronization between TX and 
RX, assuming approximations in the delay procedures. Also between bytes we en- 
tered longer delays for the demo purposes. 

To receive data, the input line is continuously polled. When the leading edge of 
the start bit is detected, a half bit delay is made: 
9,09/2 = 4,5 ms. 

and the input line is polled again 8 times with time intervals 9.09 ms after each 

poll. At the end of the packet the Stop Bit is checked and the routine returns to its 

caller with the received byte. 

Incoming 

Data 

Start BitO Bit 1 Bit 2 Bit 3 Bit 4 Bit 5 

Bit 



srs: 



1 Bit Period Delay 
Read Bit 1 



1 Bit Period Delay 
Read Bit 



.1/2 Bit Period Delay 
Confirm Start Bit 



Start Bit 
Detected 



Fig. 33 Bit banging rs-232 data receive 
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For measuring delay time we used 5 procedures and one macro: 



wait5u 


delay 


5 usek 


plOO 


>5 


100 ns 


P 1 - 


>5 


2 ms 


p5 


>5 


5 ms 


p50 


J5 


50 ms 


wait: time. 


Delay for TIME (xs (macro). 



Setting signal low or high on the TX line (RA1) uses the following technique: 
Byte, to be sent is stored in the auxiliary variable tmp. 

movf t6,w ;w<-t6 

movwf tmp 

First we like to send Start Bit, therefore RA1 is put on low and bit time 9.05 ms is 
delayed. 

bcf porta, 1 



call 


P 5 






call 


p2 






call 


p2 






wait 


.50 


; wait 50 us 






; total: 


5 + 2 + 2 + 0,050 = 


= 9, 05 ms 



Now the variable tmp is rotated right through Carry. The most right bit (less sig- 
nificant) is loaded to Carry bit of the STATUS register. 

rrf tmp, f ; rotate right tmp 

; through Carry 

Then the state of C flag is checked. If it is high, the line RA1 is set high too. If C 
flag is low, RA1 is brought to low. Finaly the delay 9.05 ms is performed. This 
procedure is repeated 9 times (counter bl), so, that the whole byte and stop bit 
are outputed. Last bit sent is '1', because before transmission the C Flag was set. 

movlw .9 ; 8 data bits + 1 stop bit 

; (8 + 1 = 9) 
movwf bl 
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bsf 



status, C ; setting C high before 
; transmission 





rrf 


tmp, f 


rotate right tmp 
through Carry 




btf sc 


status, c , 


check the state 

of C flag, if it is 




goto 


si 


it is high 




goto 


cl 


it is low 


si 


bsf 


porta, 1 


bring RA1 (transmit) 
high 



goto 



dl 



cl bcf porta, 1 ; 
dl decfsz bl, f 
goto rs_txl 



bring RA1 (transmit) low 

; decrementing counter 



After sending byte, the long delay (two bit times) is performed. 



f 


Ion 


g delay after transmitting the byte 


call 




P 5 


call 




p2 


call 




p2 


wait 




.50 


call 




P 5 


call 




p2 


call 




p2 


wait 




.50 


return 







Receiving data is carried out in the similar manner (procedure rsrxd). 
The state if RA2 line is checked. If it is high, Carry flag is set high. If RA2 is low, 
the Carry Flag is brought low too. Then the auxiliary variable tmp is rotated right 
through Carry, loading with received bits. 
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rs rxl 

; sampling the middle of the each of the 8 bits 

; of data 

; after delaying 9.05 ms (app. bit time) 

call p5 

call p2 

call p2 

wait .50 ; macro for delay 50 us 



bcf 


status, 


C 


; clearing C flag 


btf sc 


porta, 


2 


; is RA2 input line low 
; or high? 


bsf 


status, 


C 


; if high, C = 1 

; otherwise C remains 


rrf 


tmp, f 




; rotate right 
; variable tmp 
; through Carry Flag 


decf sz 


bl, f 




; all bits received yet 


goto 


rs rxl 




; receiving next bit 



movf 



tmp, t6 ; store received byte 
; to t6 



Above presented application makes first reading the text 'boro\ from the lookup 
table. Text is 2 times written to led and transmitted to terminal window on PC. It 
can be Microsoft HyperTerminal application, but we would recommend applica- 
tion Tera Term Pro because of its simplicity. 

After displaying on the terminal window the text: boro boro, the transmission 
from the PIC microcontroller is terminated and the microcontroller waits for data 
from PC. ASCII values entered on the terminal window are transmitted by the 
RS232 link to the controller and displayed on the LCD. The microcontroller sends 
feedback of received characters back to the issueing terminal window. 
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Test 15. Matrix Keypad + serial transmission 

Keypads play important role in a small embedded system where human interaction 
or human input is needed. All we have to do is connect the rows and columns to a 
port of microcontroller and program the controller to read the input. 

We make the rows as i/p and we drive the columns making them o/p, this whole 
procedure of reading the keyboard is called scanning. 

A 3 x 4 matrix keypad is used for data entry. The 12 push switches are connected 
to seven lines of port A, as shown in figure 36. 




gore** 332s- 



Fig. 34 Schematic diagram for the test with the matrix keypad 
Port A and Port B lines are connected as follows: 



RAO 


keypad 


Row 

2 


RBO 


LCD 


Data 


RA1 


Col 3 


RBI 



B. Borowik, Interfacing PIC Microcontrollers to Peripherial Devices, Intelligent Systems, 
Control and Automation: Science and Engineering 49, DOI 10.1007/978-94-007-1 1 19-8 15, 
© Springer Science+Business Media B.V. 201 1 
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RA2 




Col 2 


RB2 






RA3 


Coll 


RB3 


RA4 


Row 

1 


RB4 


Enable 


RA5 


Not 
used 




RB5 


Register Select 


RA6 


Keypad 


Row 

3 


RB6 


RS- 

232 


TX 


RA7 


Row 
4 


RB7 


RX 

Not used in the pro- 
gram 



Or with reference to modules: 



Matrix keypad: 








Row 1 


RA4 




Row 2 


RAO 




Row 3 


RA6 




Row 3 


RA7 




Coll 


RA3 




Col 2 


RA2 




Col 3 


RA1 


LCD: 








Data 


<RB0 : RB3> 




Enable 


RB4 




RS 


RB5 


Serial transmission: 








TX 


RB6 




RX 


RB7 
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Program source code 

r 

list p=16f628, r=hex ; declare processor, 

; specifying the radix 
#include pl6f628.inc ; include register label 

; definitions 
config h'3fl0' ; configuration information for 
; selected processor 
; 3fl0 HVP (High Voltage Programming) 
; 3f90 LVP (Low Voltage Programming) 
#define E portb, 4 ; LCD on portB 

#define RS portb, 5 



tmp 




equ 


h 


'29' 




cur 


col 


equ 


h 


1 2A' 


; current column 


key 


val 


equ 


h 


'2C' 


; ASCII code of the 
; pressed key 



al equ 


h'2F' 




a2 equ 


h'30' 




wait coun 


t 


equ 


a4 equ 


h'32' 




bl equ 


h'33' 




b2 equ 


h'34' 




tmp 2 


equ 


h'35' 


t6 equ 


h'36' 




tmpl 


equ 


h'38' 


tmp 3 


equ 


h'39' 



h'31 



w tmp equ h ' 3a ' 

st tmp equ h ' 3b ' 

1 msek equ h'3d' ; delay counter 
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l_kol equ h'3e' ; column counter 

NO_HIT equ OFlh ; the mask for port A 

; if no hit: 1111 0001 

WAIT: MACRO TIME 

; Delay for TIME us. 
; Variable TIME must be in multiples of 5 us. 
MOVLW (TIME/5) - 1 ; lus to process 
MOVWF TMP1 ; lus to process 

CALL WAIT5U ; 2us to process 

ENDM 

rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr 

org 

goto _start 

org 4 
int ; interrupt service routine 
; not used in this program 

; store the contents of W and STATUS registers 
movwf w_tmp ; w tmp <- w 
swapf status, w ; w <- status 
movwf st tmp ; st tmp <- w 

bcf status, rpO ; bank 
btfsc intcon, tOif 
goto _tl 
goto _odtworz 

tl bcf intcon, TOIF ; clear flag overflow 

; TMRO to be able to react 
; to the next interrupt 
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movlw . 6 
movwf TMRO 



; load TMRO 



movfw wait count 
btfss status, Z 
decf wait_count, f 
goto _odtworz 

; restoring registers 
_odtworz swapf st tmp, w ; w <- st tmp 
movwf status ; status <- w 
swapf w tmp, f ; w <- w-tmp 
swapf w tmp, w 
retf ie 

-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k 

; main 

.-k-k-kkk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-kk-k 



start 

movlw h' 07 ' 

movwf cmcon 

bsf status, rpO 

bcf peon, 1 

movlw 0x00 

movwf trisb 

bsf peon, oscf 



; Power On Reset 



; int. gen. 4 MHz 



movlw .1 ; prescaler is assigned 

; to the TimerO module 
movwf option reg ; prescaler rate: 1:4 



movlw 



Odlh ; portA direction b'1101 0001' 
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; RAO Input, RA1:RA3 Output, RA4 Input, RA5 Output, 

; RA6:RA7 Input 
movwf trisa 

bcf status, rpO 

movlw Oh ; to portA and portB 

movwf porta 

movwf portb 

clrf intcon ; clear intcon, clear rbif flag 
; disabling all interrupts 

movlw . 6 ; starting value of TMRO 

movwf tmrO 

call initLCD 

movlw 80h ; first line of the LCD 

call piszin 

clrf cur col 

clrf key val 
clrf wait count 

;bsf intcon, tOie ; enables the TMRO 

; interrupt 
;bsf intcon, gie ; enables all interrupts 

; end of the initialisation 



rrrrrrrrr 



scan ; reading the keypad 



Interfacing 8-Bit Pic Microcontroller to Peripherial Devices 111 



incf cur col, f 

movlw . 4 

subwf cur col, w 

btfss status, z 
goto key_scan 
clrf cur col 
goto scan 



; pickup next column 

; to scan 
if cur col > max col, then 

; we just did last column 

; so start over 
if zero we need to start over 
if not, go, look for key hits 
starting over 



key scan ; reading the key 

movfw cur col ; get bit pattern, which 

call col_select ; selects currently 

; desired column 

movwf porta ; and enable that column 



movfw porta 
andlw Oxdl 



addlw -NO_HIT 

btfsc status, z 
goto scan 
call key_get 



; reading rows (input lines) 

; Oxdl = bllOl 0001, porta 

; if no key hit 

; clearing column lines <1:3> 

; see, if key hit occurred 

; in current column 

; no, look at next column 

; yes, process ignore 

; key release keystroke 



andlw Odlh 



xorlw Odlh 



; there is bounce on 
; a key „release" 



btfsc status, z ; we want to debounce 
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goto scan 



; key releases 

; (so, they do not look like 

; legit keystrokes) but then we 

; just ignore the release 



call key xlate ; legit keystroke - turn into 
; binary value 



movfw key val 
addlw .35 
movwf t6 
call piszd 



; ASCII code of '#' character 



bsf portb, 
call rs tdx 
call p50 
call p50 
call p50 
call p50 
goto scan 



;HIGH on RB6 (transmitting) 



scan forever 



initLCD 

call p50 
movlw 0x13 



movwf PORTB 

nop 

nop 

bcf E 
call p5 
bsf E 



E (RB4) = 1, data to be sent 
(RB3 : RBO) = 3 

w = 0001 0011 
w -> PORTB 



the Enable strobe asserted low 



the Enable strobe asserted high 
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nop 
nop 

bcf E 

call plOO 

bsf E 

nop 

nop 

bcf E 

call plOO 

raovlw h'28' ; 4 bits mode, 2 lines, 5x7 

call piszin 

raovlw . 8 ; display off 

call piszin 

raovlw .1 ; display clear 

call piszin 

raovlw . 6 ; entry mode 

call piszin 

movlw Och ; display on 

call piszin 

return 

col select 





addwf 


pel, f 


; get 

; sell 


bit pattern, which 
acts given column 




dt 


b'00001110' 




; no column selected 




dt 


b'00000110' 




; col 1 




dt 


b'00001010' 




; col 2 




dt 


b'00001100' 




; col 3 


key 


get 

movfw 
movwf 


porta 
key val 
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check 

call p5 
call p5 
call p5 
call p5 
raovfw porta 

; debounce cycle 
subwf key val, f ; see, if matches last 
btfsc status, z ; if Z, the values matched 
goto matched 
movwf key val ; no match, start debounce 

; cycle again 

goto check 

matched 

movwf key val ; save in case, we have to do 

; again 
return 

key xlate 

comf key val, w ; complement so only bits on 

; correspond 
andlw Odlh ; to row select mask unused off 

call bit2row ; translate it into a row number 
movwf key val 

movfw cur col ; get current column 

addlw -1 ; convert into an O-relative offset 

addwf pel, f 
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goto coll_xlate 

goto col2_xlate 
goto col3_xlate 



coll xlate: 

raovfw key val 
call coll keys 
movwf key val 
return 

col2 xlate: 

raovfw key val 
call col2 keys 
movwf key val 
return 

col3_xlate : 

movfw key val 
call col3_keys 
movwf key val 
return 

coll_keys : 

addwf pel, f 

dt .14 ; character ,1' 

dt llh ; character ,4' 

dt .20 ; character ,7' 

dt . 7 ; character ,*' 

col2_keys : 

addwf pel, f 

dt Ofh ; character ,2' 
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dt .18 ; character ,5' 
dt .21 ; character ,8' 
dt .13 ; character ,0' 

col3_keys : 

addwf pel, f 

dt lOh ; character ,3' 

dt .19 ; character ,6' 

dt .22 ; character ,9' 

dt . ; character ,#' 

bit2row: 

raovwf tmp 
sublw 0x10 
btfss status, Z 
goto r2 
retlw .0 

r2 movfw tmp 
sublw . 1 
btfss status, Z 
goto r3 
retlw . 1 

r3 movfw tmp 
sublw . 64 
btfss status, Z 
goto r4 
retlw .2 

r4 movfw tmp 
sublw . 128 
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btfss status, Z 

return 
retlw . 3 



; pause 100 us 

P100: ; wait t = 5 + 25*4 cycles 
movlw 0x01 ; 1 cycle 
movwf al ; 1 cycle 

Out3: 

movlw 0x19 ; 1 cycle 
movwf a2 ; 1 cycle 

In3: 

decf a2,l ; 1 cycle 

btfss STATUS, Z 



goto In3 



1 cycle (Z = 0) , 

2 cycles (Z = 1) 
2 cycles 



decf al,l ; 1 cycle 

btfss STATUS, Z ; 1 cycle (Z = 0), 

; 2 cycles (Z = 1) 
goto Out3 ; 2 cycles 

return ; 2 cycles 



; pause 2 ms 

P2: ; wait t = 4 + 10 * (6 + 50 * 4) cycles 

movlw OxOA ; 1 cycle 

movwf al ; 1 cycle 

Out2: 

movlw 0x32 ; 1 cycle 

movwf a2 ; 1 cycle 

In2: 

decf a2,l ; 1 cycle 
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btfss STATUS, Z 

goto In2 
decf al, 1 
btfss STATUS, Z 

goto 0ut2 
return 



1 cycle (Z = 0) , 

2 cycles (Z = 1) 
2 cycles 

; 1 cycle 

; 1 cycle (Z = 0) , 
; 2 cycles (Z = 1) 

; 2 cycles 

; 2 cycles 



; pause 5 ms 
P5: ; wait t = 4 
; = 4 + 21*23£ 

movlw 0x15 

movwf al 
Outl: 

movlw 0x3A 

movwf a 4 
Inl: 

decf a4, 1 

btfss STATUS, Z 

goto Inl 
decf al, 1 
btfss STATUS, Z 

goto Outl 
return 



21 * (6 + 58 * 4)cycles 
=4+4 998 us 
; 1 cycle 

; 1 cycle 

; 1 cycle 

; 1 cycle 

; 1 cycle 

1 cycle (Z = 0) , 

2 cycles (Z = 1) 
2 cycles 

; 1 cycle 

; 1 cycle (Z = 0) , 
; 2 cycles (Z = 1) 

; 2 cycles 

; 2 cycles 



; pause 50 ms 

P50: ; wait T = 10 * 5000 cycles 
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movlw OxOA 
movwf a2 
Jedziemy2 : 

call P5 
decf a2, 1 
btfss STATUS, Z 

goto Jedziemy2 
return 



; 1 cycle 

; 1 cycle 

; 2 cycles 
; 1 cycle 

1 cycle (Z = 0) , 

2 cycles (Z = 1) 
2 cycles 

; 2 cycles 



iszd 




movwf 


TMP3 


bcf E 




swapf 


TMP3, f 


movlw 


OcOh 


iorwf 


TMP3,w 


andlw 


Oefh 


movwf 


portb 


bsf RS 


bsf E 




nop 




nop 




bcf E 




swapf 


tmp3, w 


iorlw 


OcOh 


andlw 


Oefh 


movwf 


portb 


bsf RS 


bsf E 




nop 





; high nibble transfer 



; low nibble transfer 
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nop 

bcf E 
call plOO 
return 

piszin ; RS = 

movwf TMP3 
bcf E 
swapf TMP3,f 

raovlw OcOh 

iorwf TMP3,w 

andlw Oefh 

movwf portb 

bcf RS 

bsf E 

nop 

nop 

bcf E 

swapf tmp3,w 

iorlw OcOh 

andlw Oefh 

movwf portb 

bcf RS 

bsf E 

nop 

nop 

bcf E 

call p2 

return 

WAIT5U: ; This takes 5 us to complete 
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NOP ; 1 us to process 

NOP ; 1 us to process 

DECFSZ TMP1,F ; lus if not zero or 

; 2 us if zero 

GOTO WAIT5U ; 2 us to process 
RETLW 

rs tdx 

movf t6,w 

raovwf tmp 

movlw . 9 

movwf bl 

bsf status, C 

bcf portb, 6 
rs txl 

call p5 

call p2 

call p2 

wait .50 

rrf tmp, f 

btfsc status, c 

goto si 

goto cl 
si bsf portb, 6 

goto dl 
cl bcf portb, 6 
dl decfsz bl, f 

goto rs_txl 

call p5 

call p2 

call p2 
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wait .50 
call p5 
call p2 
call p2 
wait .50 
return 



end 



Program description 

Interrupt Service Routine has not been used in the program. 
The three columns of the keypad are connected to three of the output signals from 
the PIC. The four rows of the keypad are connected to four of the input signals to 
the PIC. If no key is pressed there is no electrical contact between the rows and 
the columns. The PIC detects which key is pressed by 'scanning' the keypad. 
First the PIC makes the column 1 current column and sets the signal going to Col- 
umn 1 low (a digital '0'). All the other Columns are made high (a digital '1'), 
Then it tests the input signals coming from each Row in turn. If any of the Row 
signals is low, this means that the corresponding key in Column 1 has been 
pressed. Current column number is stored to the variable curcol. 
Interrupt Service Routine has not been used in the program. During the initializa- 
tion phase the variable cur_col is cleared: 

clrf cur col 

After modules initialization the keypad scanning is executed. 

scan ; reading the keypad 

incf cur col, f ; pickup next column to scan 
movlw .4 ; if cur col > max col, then 

subwf cur col, w ;we just did last column 

; so start over 
btfss status, z ;if zero we need to start over 
goto key scan ;if not, go, look for key hits 
clrf cur col /starting over 
goto scan 
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key scan ; reading the key 

movfw cur col ; get bit pattern, which 

call col_select ; selects currently desired 

; column 

movwf porta ; and enable that column 

We call col_select to receive the bit pattern for port A with the specified column 
selected. 

col_select addwf pel, f ; get bit pattern 

; , which selects given column 
dt b' 00001110 ' ; no column selected 
dt b'00000110' ; col 1, bit 3 low 
dt b'00001010' ; col 2, bit 2 low 
dt b'00001100' ; col 3, bit 1 low 

Then we send received bit pattern to port A and respective column output line is 
set low. Next we read port A to detect, if any row is made low on input row lines. 
Such situation means, that the corresponding key has been pressed. 



movwf porta 



; and enable that column 



movfw porta 



; reading rows (input lines) 



We have to compare the setting of port A with the pattern NOHIT (No key 
pressed) and to debounce key releases. 



movfw porta 
andlw Oxdl 



addlw -NO HIT 



btfsc status, z 



; reading rows (input lines) 

; Oxdl = bllOl 0001, porta 

; if no key hit 

; clearing column lines <1:3> 

; see, if key hit occurred 

; in current column 
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goto scan 
call key_get 



; no, look at next column 
; yes, process ignore key 
; release keystroke 



andlw Odin 



xorlw Odlh 



; there is bounce on a key 
; „release" 



btfsc status, z 



goto scan 



; we want to debounce key 

; releases 

; (so, they do not look like 

; legit keystrokes) but then we 

; just ignore the release 



key_get 

movfw porta 
movwf key val 



check 

call p5 
call p5 
call p5 
call p5 
movfw porta 

subwf key val, f 
btfsc status, z 
goto matched 
movwf key val 



debounce cycle 

see, if matches last 

if Z, the values matched 

no match, start debounce 
cycle again 



goto check 
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matched 

movwf key val 

return 



; save in case, we have to do 
; again 



Now if we know valid keys, they have to be translated into ASCII codes. This task 
carries out the routine keyjdate. The lookup tables are built with the respective 
values for each column and each row. The lowest ASCII code is for the character 
# (ASCII code 35)In lookup tables we assign for the # character and starting 
with we successively assign next numbers for next characters. Therefore after 
finishing this procedure to each value we have to add 35. 

key xlate 

comf key val, w ; complement so only bits on 

; correspond 
andlw Odlh ; to row select mask unused off 



call bit2row 
movwf key val 



; translate it into a row number 



movfw cur col 
addlw -1 

addwf pel, f 
goto coll_xlate 
goto col2_xlate 
goto col3_xlate 



; get current column 

; convert into an O-relative 

; offset 



coll xlate: 

movfw key val 

call coll keys 

movwf key val 
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return 

col2 xlate: 

raovfw key val 
call col2 keys 
raovwf key val 
return 

col3_xlate : 

raovfw key val 
call col3_keys 
raovwf key val 
return 

coll_keys : 

addwf pel, f 

dt .14 ; character ,1' 

dt llh ; character ,4' 

dt .20 ; character ,7' 

dt . 7 ; character ,*' 

col2_keys : 

addwf pel, f 

dt Ofh ; character ,2' 

dt .18 ; character ,5' 

dt .21 ; character ,8' 

dt .13 ; character ,0' 

col3_keys : 

addwf pel, f 

dt lOh ; character ,3' 

dt .19 ; character ,6' 
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dt .22 




; character 


,9' 


dt .0 




; character 


,#' 


bit2row: 








raovwf tmp 








sublw 0x10 








btfss status, 


Z 






goto r2 








retlw .0 








r2 raovfw tmp 








sublw . 1 








btfss status, 


Z 






goto r3 








retlw . 1 








r3 movfw tmp 








sublw . 64 








btfss status, 


z 






goto r4 








retlw .2 








r4 movfw tmp 








sublw . 128 








btfss status, 


z 






return 








retlw . 3 









Finaly the found ASCII codes are sent to LCD for displaying and in parallel for 
transmission to terminal window on PC. 
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The Stack Memory 

During tracing the software execution very helpful is watching the memory 
contents. 

In the PIC mocrocontrollers we can distinguish the program memory and the 
data memory. There is also the stack memory, which is not space of either pro- 
gram or data memory. 

The PIC 18F1320 has 8 Kbytes (0x2000) of Flash program memory and can 
store up to 4096 (0x1000) single-word instructions. The Reset vector address is at 
OOOOh. The program memory map is shown in the figure below. 
Program Counter 



PC < 20 : > 



CALL 
RETURN 
RETFIE 
RETLW 



Stack. Level 1 



Stack Level 31 



RESET Wektor 



High Priorrity Interupt Vector 



Low Priorrity Interupt Vector 



On Chip 
Program Memory 





1FFFh, 
2000hT 



orow ik Jo/p 



Fig. 35. Program memory map and stack for PIC 18F 1320 
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The stack allows up to 3 1 program calls and interrupts to occur. The PC regis- 
ter content is pushed onto the stack, when a call instruction is executed. The PC 
value is pulled off the stack on a RETURN, RETLW, or RETFIE instruction. 

The stack operates as a 31 word by 21 bit RAM and a 5 bit stack pointer, ini- 
tialized to after all resets. 

During a CALL instruction the stack pointer is first incremented, and the RAM 
location, pointed to by the STKPTR register is written with the contents of the PC 
(pointing to the instruction, following the CALL). During the RETURN instruc- 
tion the contents of the RAM location pointed to by the STKPTR are transferred 
to the PC and then the stack pointer is decremented. 

Status bits indicate if the stack is full, has overflowed or underflowed. 

In our application the highest used level of stack was 5. 

Below is shown the point in the software code, where the stack pointer is on the 
3 rd level 



« p18PDEM4_demo - MPLAB IDE V7.60 

File Edit View Project Debugger Programmer Tools Configure Window Help 
DSy (aesm-t Relea! ~ja' B* H Si© & M 1 Checksum 0x6b3 1 | 



- ff'Gi; 



EHBr 



703 i 5-ack Level Ketucn fc.ddt.-es3 Location 




A 4 18FDEMO\18IOEXPLCD.ASM 



>ICDEM 4 1SF Demo\18SPIMB.asm 



equirement : 



S Plmbblnit Lnte rf ace : 

GLOBAL 3^ Lrabblnit Interface 



bet 

bef 
bsf 

bof 

bef 
return 



SPIMBE_TRIS. SPIMBBSDO 
SFIMBEJTRIS, SPIMBBSCK 
SPIMBB_TRIS. SPIMBESDI 
SPIMBB_FQRT, 3PIMBBSDO 
SPIMBB PORT.SPIMEESCK" 



;3DO as Inpu 

;SCK as Inpu 

;SDI as Inpu 

;BDA as Inpu. 

;3CK as Inpu 



LCD message tables foe PLCDKM-4 
Filename: LCDMsgs .asm 



istTT:KT:TJ:?n:sr-MiiritJ:i! 



sP 



tn&mat tmm 



pc:0*95c 



n ov Z dc c 



barko 



fLSEir©** 1 W;43 



Fig.36. The hardware Stack 



From the line # 34 (address 042) of the main code was called the function Io- 
ExpLCDInit (address 7ba). PC register was holding the address of the next in- 
struction: 046 

042 + 4 = 046 

and pushed it on the first level of the stack. Program flow went to the location 
of 7ba, line # 990, which was the function: IoExpLCDInit. In the first line of this 
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function was call to the function InitlOExpander (line # 1047, address 82c. PC 
was holding the address of the next instruction: 

7ba + 4 = 7be 

and pushed this return value onto the stack as the 2 n level. 

Then in the address 82c was executed macro mlnitlnterface, and from it was 
called the function SPImbblnitlnterface. PC register was holding the address of 
the next instruction: 

82c + 4 = 830 

and again pushed this return value onto the stack (3 r level). 

The green arrow on the left side points onto the top of the stack. 

As we can see, there are some values on the levels 4 and 5, because after re- 
turning from function the program doesn't clear the stack location, but during sub- 
sequent pushing overwrites old values with the new. 
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- s0: 



Hie Edit View Project Debugger Programmer Tools Configure Window Help 
DgSk, fe C! 3 tt - ? Relea; * ; df' 6* H © • #£2^l checksum 0x6b31 j 



* ll » B (F rt 1 IB 


















TOS Stack Level Return Addles 


s Location >"■ 




Empty 




keart i 2 




1 C0OD46 

2 O0O7BE 


.file 
.file 






^ICDEM 4 18F DemoMSSPIMB.asm 


i* 3 000830 


.file 




4 000778 


.file 


equiremeTit: D 






5 oooeic 


.file 








.-Program Memory: 1 [_ |[n||£; 






Line Address 


Opcode Label Disassemble A 




1197 0958 


FJ04 HOE 




119B 095A 


DC 12 RETURN 






+ 1199 095C 


9493 EPImbblriitlnteEface ECF TRISB, 0x2 f ACCESS 


3 Inpu 




1Z00 09SE 


9A93 BCF TRISB, 0x5, ACCESS j 


s Inpu 




1Z01 0960 


0093 BSF TRI9B, 0, ACCESS 


s Inpu 




1202 0962 


94B1 BCF PORTB, 0x2, ACCESS 


s Inpu — 


M~ 


1Z03 0964 


9AB1 BCF PORTE, Dx5, ACCESS 


S Inpu 






1204 0966 

1205 0968 


DO 12 jSETURN D 




3i. 5 u 




1206 096A 


FETF NOP 






1207 096C 


FFFF NOP 








12 DB D9 6E 


FFTF MOP 








1209 0970 


FFFF NOP. 
FFFF MOP 


i 

'3 


<T 




1210 0972 



pr:0l95c 



tffim^ST 



kl.bmp- Paint 



PL S O '. C »i? 19:58 



Fig.37. the Program Memory window 

The second snapshoot screen shows as well the Program Memory window. The 
current line # is 1199 and the address of the function in the memory is 95c 

We can present this as the following scheme: 



the main code 



line # 34 

address 042 

call to IoExpLCDInit 
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IcExpLCDInit 

li|e # 990 

address 7ba 

call to InitlOExpander 



InitlOExpander 
line # 1407 
address 82c 
mlnitlnterface macro 



mlnitlnterface macro 
call to SPImbblnitlnterface 
line #1199 
address 95c 



When we trace the program further on and execute return, then the stack 
pointer decrements and the green arrow on the left goes one level up. 



Another information on, how the program works, we can get from the .map file. 
The .map file is generated, when we select this linker option in: 

Project -> Build Options -> Project 

and in the dialog window we open the linker tab. 

Below is some part of the .map file. 

MPLINK 4.11, Linker 

Linker Map File - Created Wed Feb 27 12:18:47 2008 



Section 



Section Info 
Type Address 



Lo- 



cation Size (Bytes) 



ResetVector 
program 0x000004 

. cinit 
program 0x000002 

Main_Start 
program 0x00050a 



code 0x000000 

romdata 0x00002a 

code 0x00002c 
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IOExpLCDMsg 


code 


0x000536 


program 


OxOOOlec 








IOExp2LCDCode 


code 


0x000722 


program 


0x00016e 








PROG2 


code 


0x000890 


program 


0x00007a 








CODE18SPIMBB 


code 


0x00090a 


program 


0x00005e 








. conf ig 


code 


0x300000 


program 


OxOOOOOe 








SPIMB 


udata 


0x000080 


data 0x000017 








IOExpLCD LCD DATA 


udata 


0x000097 


data OxOOOOOf 








MainRAM 


udata 


0x0000a6 


data 0x000009 








MATH VAR 


udata 


OxOOOOaf 


data 0x000009 








MainOvrRAM 


udata 


0x0000b8 


data 0x000003 








MainAcsRAM 


udata 


OxOOOObb 


data 0x000001 







Program Memory Usage 
Start End 



0x000000 0x000003 

0x00002a 0x000967 

0x300000 0x30000d 

2384 out of 8472 program addresses used, 
program memory utilization is 28% 

Also the . map file provides information about all symbols in the 
output module. Symbols are: function names, labels for loop 
branches, the user defined register names etc. Information includes 
the address of the symbol, whether the symbol resides in program or 
data memory, whether it has external or static linkage and the name 
of the file, where it is defined, as below: 



Symbols - Sorted by Address 
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Name 
Storage File 



Address 



Location 



static 



start 0x00002c program 

E:\. . . .mo\p18PDEM4.asm 

UserMode 0x00007a program 

static E:\. . . .mo\p18PDEM4.asm 

VoltmeterMenu 0x00007a program static 

E:\. . . .mo\p18PDEM4.asm 

_Main_Start_007C 0x0000a8 program static 

E:\. . . .mo\p18PDEM4.asm 

_Main_Start_0080 OxOOOOac program static 

E:\. . . .mo\p18PDEM4.asm 

_Main_Start_00AE OxOOOOda program static 

E:\. . . .mo\p18PDEM4.asm 



_CODE18SPIMBB_004C 0x000956 program 

E:\ mo\18SPIMB.asm 

SPImbblnitlnterface 0x00095c program 

E:\ mo\18SPIMB.asm 

SPImbbBuffer 0x000080 data 

E:\. . . .mo\spimb.asm 

SPImbbRxData 0x000094 data 

E:\. . . .mo\spimb.asm 

SPImbbData 0x000095 data 

E:\. . . .mo\spimb.asm 

SPImbbDataRead 0x000096 data 

E:\. . . .mo\spimb.asm 

ioExpDelay 0x000097 data 

static E:\. . . .moMoExpLcd.asm 
JoExplnternalCounter 0x000098 data 

E:\. . . .moMoExpLcd.asm 

ioExpDataToLCD 0x000099 data 

E:\. . . .moMoExpLcd.asm 

joExpCommandToLCD 0x00009a data 

static E:\. . . .moMoExpLcd.asm 



static 



extern 



extern 



static 



extern 



static 



static 



static 
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The lister file .1st 

One of the output file generated by the linker is the text file .1st, called lister 
file. Inspecting this file allows to understand, how the program works. Let us see 
the beginning of the .1st file of the demo program p!8PDEM.asm: 



**************************************************** 
; Reset Vector 

ResetVector CODE 0x00 

000000 efl6 GOTO 0x2c 

goto start 
000002 fOOO 



Main_Start CODE 

start 

; Initialize I/O pins 
00002c 0e70 MOVLW 0x70 

movlw B'01110000 

/Select 8MHz frequency 

MOVWF 0xd3,0x0 
movwf OSCCON 

CLRF 0x80,0x0 
clrf PORTA 

CLRF 0x81,0x0 
clrf PORTB 

SETF 0xcl,0x0 
setf ADCON1 

000036 0e3f MOVLW 0x3f 

movlw B'00111111' 
000038 6e92 MOVWF 0x92,0x0 

movwf TRISA 
00003a 0ef7 MOVLW 0xf7 

movlw B'11110111' 
00003c 6e93 MOVWF 0x93,0x0 

movwf TRISB 



00002e 


6ed3 


000030 


6a80 


000032 


6a81 


000034 


68cl 
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00003e eclf CALL Ox43e, 0x0 

call LongDelay 

; Provide some delay 
to match-up reset time 
000040 f002 

;of 10 Expander 

First four bytes of the reset vector is a reset section. 

From the address of 0x020 on goes the Main-Start code, comprising 0x00050a 
bytes of code. The first line of the Main-Start coOde is the line: 

00002c 0e70 MOVLW 0x70 

movlw B'01110000' 

/Select 8MHz frequency 
2ch is the address of the line in hex. 
Oe is the op code name of the instruction movlw 

70 is the value of the argument, equal 0x70. This value is to be loaded into 
WREG register. 

The next line with the address of 00002e is: 
00002e 6ed3 MOVWF 0xd3,0x0 

movwf OSCCON 

6e is the op code of the instruction movwf 
63 is the address of the SFR OSCCON register 

The result of running this instruction can be watched in the window of MPLAB 
IDE: 

View -> Special Function Registers, and also in the window: 
View -> View -> File Registers 
as is shown below: 
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Sp1BPDEM4_demo - MPLAB IDE V7.60 
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— Special Function Registers 



n" 



FCP. 
FCB 

TCC 

FCD 
FCE 
FCE 

fcf 

FDD 
FD1 
FD2 
FD3 
YDS 
FD6 
FD6 
FD7 
FOB 
FD9 
FD3 
rr..a 



_L 



T2COH 

TMR2 
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THR1 
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LVUCOH 
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■mRO 
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□ Dp-DOUOD 

oooooooo QUODO'DOO 
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> 



■■■5 on no nn dq dd on dd in an on hd on on ac 
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■ 



s::C.\:iCi 
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Fig. 38. The result of running this instruction watched in the window 

Let us remember, that OSCCON register has the address of Fd3. 

As was stated, the Special Function Registers we can also inspect in the win- 
dow with all data memory, named: File Registers. We have to scroll down the 
window to the very end to see the upper addresses of the memory. There are no 
names of registers in this window, but we remember, that OSCCON register has 
the address of FD3 
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File Registers 



DD Qll D2 D3 Q4 



| 04 1 D5 | 06 1 07 | OB | 03 | -0A | O-BJ PC | Dp| Del Jf| 



F5Q 
F^Q 
FBU 
F90 
FAD 
FBU 
FCO 
FDU 
FEO 
FFfl 



T^EM 



DO OD — QD DC ..- 

— — DF FF — — — — — — — DO — OG DO 71 — . 

no no ge — po no dd no so no 02 no on 00 ... 

DO PC 00 DO PC DO DO .DO PO - . . 

DO OD OD DO OD =3§ OD FF OD 00 DO 00 . . . 

1C 00. 05 74 — FF 00 DO PO B0 00 ■ 

■DO P0- DO 70 DO P0 ■ 
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■ ■■■'. -n.,: '. *». /Am i 



Fig. 39. The result of running this instruction watched in the window 
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As we see, the working register WREG (address 0xFE8) holds the value of 70, 
while the OSCCON register has the value of 74. The third bit in the register is set, 
because the INTOSC frequency is stable 

Let us inspect the tenth and eleventh lines of code: 

00003e eclf CALL 0x43e, 0x0 
call LongDelay 

; Provide some delay 
to match-up reset time 
000040 f002 

;of IO Expander 

0x00003 e is the instruction address in the program memory. 

ec is the op code of the call instruction. 

Let us leave the value of If as it is, and take into account the argument of the 
instruction: 0x43e. It points to the address in the program memory, where resides 
the function: LongDelay. 

0x0 denotes the memory stack, where the return address is pushed (PC + 4). 



Tables, Table instructions 



As we can see in the .map file: 

MPLINK 4.11, Linker 

Linker Map File - Created Wed Feb 27 12:18:47 200! 

Section Info 





Section 


Type Ac 


[dress Lo- 


cation S 


ize (Bytes) 






_ 


ResetVector 


code 


0x000000 


program 


0x000004 








. cinit 


romdata 


0x00002a 


program 


0x000002 








Main Start 


code 


0x00002c 


program 


0x00050a 








IOExpLCDMsg 


code 


0x000536 


program 


OxOOOlec 
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I0Exp2LCDCode code 0x000722 

program 0x00016e 

the IOExpLCDMsg code section for displaying data on LCD resides in the 
program memory, starting with the address of 0x000536. 
The first string to display is: 

" Microchip " 

and is labeled as MsgMicrochip. The string is expanded as follows: 

IOExpLCDMsg code 

IOExpLCDStringTable : ; table for standard 

messages 

GLOBAL IOExpLCDStringTable 

MsgMicrochip : 

data " 



000536 


2020 


ADDWFC 


0x20, 0x0, 


0x0 


icrochip 


",0 


r 






000538 


2020 


ADDWFC 


0x20, 0x0, 


0x0 


00053a 


694d 


SETF 


0x4d, 0x1 




00053c 


7263 


BTG 


0x63, 0x1, 


0x0 


00053e 


636f 


CPFSEQ 


0x6f , 0x1 




000540 


6968 


SETF 


0x68, 0x1 




000542 


2070 


ADDWFC 


0x70, 0x0, 


0x0 


000544 


2020 


ADDWFC 


0x20, 0x0, 


0x0 


000546 


0000 


NOP 







The first column contains addresses of particular words of code. The second 
column contains ASCII characters to be displayed, the lower byte first. : 



2020 

?n?n 


space, space 

6i a. 


694d 


i M 


7263 


r c 


636f 


c 


6968 


i h 


2070 


P 



"_" also denotes space. 

The third and fourth columns can be neglected, because are no rele- 
vant. 

In the 18 l line of the Main-code section the following macro is invoked: 



Interfacing 8-Bit Pic Microcontroller to Peripherial Devices 139 



/Display "Microchip" 



00004e 


OeOO 


MOVLW 


0x0 






mIOExpLCDS' 


sndMessage 


000050 


6ef8 


MOVWF 


0xf8, 0x0 


000052 


0e05 


MOVLW 


0x5 


000054 


6ef7 


MOVWF 


0xf7, 0x0 


000056 


0e36 


MOVLW 


0x36 


000058 


6ef 6 


MOVWF 


Oxf 6, 0x0 


00005a 


ec91 


CALL 


0x722, 0x0 


00005c 


f003 







MsgMicrochip 



Notes, that 0xF8, 0xF7 and 0xF6 are addresses of three registers of the 
TBLPTR: upper, high and low. 

The macro gets as the argument: MsgMicrochip, which is the label in the first 
string in the table. The pointer to the symbolic name MsgMicrochip is 0x000536. 
This address has to be moved to the TBLPTR register, to be read by the TBLRD 
(Table Read) instruction. 

The TBLPTR register is comprised of three SFR registers: 

Table Pointer Upper byte 

Table Pointer High byte 

Table Pointer Low byte 

(TBLPTRU:TBLPTRH:TBLPTRL). 
The macro mIOExpLCDSendMessage divides the pointer to MsgMessage into 
three parts and moves them to above mentioned Table Pointer bytes. Those three 
parts are: 

00 to TBLPTRU 

05 to TBLPTRH 

36 to TBLPTRL. 

Then the macro invokes the function: 
00005a ec91 CALL 0x722,0x0 

( call IOExpLCDSendMessage). 

The address of the function is 000722 in hex. and the respective code with the 
line addresses is shown below: 

IOExpLCDSendMessage : 

GLOBAL IOExpLCDSendMessage 

IOExpLCDNextMessageBit 
000722 0009 TBLRDPOSTINC 
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TBLRD*+ 






; read 


from table 




000724 


50f5 


MOVF 


0xf5, 0x0, 0x0 






movf 


TABLAT , w 




;if 


end 




000726 


0900 


IORLW 


0x0 






iorlw 


0x00 


000728 


b4d8 


BTFSC 


0xd8, 0x2, 0x0 






btf sc 


STATUS, Z 


00072a 


0012 


RETURN 
return 


0x0 


00072c 


ecbd 


CALL 


0x77a, 0x0 






call 


IOExpLCDWriteData 




/otherwise write 


character in LCD 


00072e 


f003 






000730 


ef91 


GOTO 


0x722 






goto 


IOExpLCDNextMessageBit 


000732 


f003 







The table is read with the instruction postincremented TBLRD*+. Then the 
content of the TBLAT register is copied to the W register. TBLAT register holds 
the value (ASCII character), pointed to by the TBLPTR register. 

The contents of the W register is checked (iored with the value of 0x0), if it is 
the end of the string. If not yet, then the function writing data is invoked and the 
next character is to be loaded to the WREG register in the loop. 

If the end of the string is encounterwed, the Return is executed. 

The results of executing the code can be inspected by watching File Registers 
and Special Function Registers Memory, especially TBLPTRU, TBLPTRH, 
TBLPTRL and TBLAT registers 

Data memory 

Now we describe briefly the data memory. The data memory map is shown be- 
low, in Figure 40 
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BSR<3:0> 



=0000 



■^ BANK ■ 



OOh 



"FFh 



=0000 



=0000 



BANK1 

to ' 
BANK14 



Access RAM 



GPR 



OOOh 
07Fh ' 
080h 
OFFh 



Acces BANK 



OOh 



=0000 



■^ BANK 15 



OOh 



. FFh 



Unused 
Read OOh 



Unused 



SFR 




8or»»*#/ ff 



Fig.40 Program memory map and stack for PIC 18F 1320 



The lowest address of OOh is in the top. Addresses grow up when we go down 
the figure. At the very top (bottom on the figure) are located SFR. They occupy 
addresses EFFh to FFFh (256 bytes). 

Lower part of data memory occupy GPR (General Purpose Registers). These 
are user defined registers, used for data storage and scratch pad operations in the 
user application. 

As already has been described, we can view data memory selecting in the 
MPLAB IDE: 

View -> Special Function Registers, 



and to see GPR: 

View -> File Registers 

Then we can scroll down the screen and see the SFR registers as well (see fig. 



40). 



142 



Bohdan Borowik 



The application of the PIC24FJ microcontroller with the 240x128 
LCD display and the analog accelerometer sensor. 



The source code has been written in C (C30 compiler). The sensor used is 
Freescale MMA7260QT, accommodated on the sensor board of Sure Electronics. 
For the convenience we put the board with sensor to the metal box as shown in the 
figure. 




Fig.41 The accelerometer MMA7260QT, accommodated on the sensor board 

Schematic diagram of the accelerometer with operational amplifiers is shown 
in figure 42. 




t^vikzoj 



Fig.42 The accelerometer MMA7260QT, schematic diagram 
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Fig.43 The accelerometer application circuit. 



After powering up, the program waits for pressing the switch (connected to 
RC3). Then on the LCD display appears the text: "a_z = ". Also on the left side of 
the screen appear in the first column the marks "-". They allow to imagine, where 
is the Mid of the vertical scale. 

Now system waits for data from accelerometer attached to the cable. When we 
shake the box with accelerometer, then the processor calculates if data from sensor 
are greater than sensor noise. If so, then 22 results are collected. 

Reason of the number 22 is, that in the application LCD operates in the text 
mode. It has 30 columns and 16 rows. Last 7 columns are reserved for numerical 
values of the data, while the first column has scale marks. Therefore only 30 - 7 - 
1 = 22 results are needed for scattergram. 

First the data are collected and saved in the array. After finishing the sequence 
the scattergram is plotted in the text mode and first numeric values are presented 
on the screen, as shown in figures a, b and c. 
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Fig. 44 Scattergram with data from accelerometter 
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Those values are raw data not converted to acceleration units, nor to mVolts 
yet. For 10-bits ADC module they are in the range of to 1024. The center of the 
scattergram is about the value of 500. For better clarity we truncated lowest and 
highest part of the scale. 

Application runs according to following two flowcharts: 



( START J 



init 
ADC init 
LCD inil 




Fig. 45 Aplication flowchart nr 1 
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plotting 
the scattergram 



converting 

the numeric values 

to strings 



displaying 

strings 

on LCD screen 



V. 



end 




saving ADC result 

to the next 

array element 



saving the current 

ADC reading 
for further 
reference 



Fig. 46 Aplication flowchart rtr 2 

Listing of the source code is shown below. Detailed description is presented 
after that. 



//■ 



#include<p24f xxxx . h> 

#include <stdlib.h> 
#include <math.h> 
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_C0NFIG2 ( FNOSC_FRCDIV ) // 
_C0NFIG1 (JTAGEN_OFF & FWDTEN_OFF) 
watchdog timer off 



// JTAG off, 



#define wr 

#define rd 

#define cs 

lect 

#define cd 

Control 

#define rst 

#define fs 



LATFbits.LATFl 

LATFbits.LATFO 
LATFbits.LATF3 

LATFbits.LATF2 



// WR L Write 

// RD L READ 

// CS L Chip Se- 



// CD L DATA 



H 



// RST L Reset 
// FS FONT SELECT 



LATFbits.LATF5 
LATFbits.LATF4 

// polish national characters 

char pol [] = { 

0x00, OxOe, 0x01, OxOf, 0x11, OxOf, 0x02, 0x04 
a 

0x02, 0x04, OxOe, 0x11, 0x10, 0x11, OxOe, 0x00 
c 

0x00, OxOe, 0x11, Oxlf, 0x10, OxOe, 0x02, 0x04 
e 

0x02, 0x04, OxOf, 0x10, Oxle, 0x01, Oxlf, 0x00 
s 

0x0c, 0x04, 0x06, 0x04, 0x0c, 0x04, OxOe, 0x00 
1 

0x02, 0x04, OxOe, Oxll, Oxll, Oxll, OxOe, 0x00 
o 

0x04, 0x00, Oxlf, 0x02, 0x04, 0x08, Oxlf, 0x00 
z 

0x02, 0x04, Oxlf, 0x02, 0x04, 0x08, Oxlf, 0x00 
z 

0x02, 0x04, 0x16, 0x19, Oxll, Oxll, Oxll, 0x00 
n 

0x10, 0x10, 0x18, 0x10, 0x30, 0x10, Oxlf, 0x00 
L 

0x00, 0x00, 0x00, Oxlc, Oxlc, Oxlc, 0x00, 0x00 
kropka 

}; 



// 
// 
// 
// 
// 
// 
// 
// 
// 
// 
// 



char tl [4] ; 
char t2 [5] ; 



// #define ayl 
to RBO 



// 10k ay connected 
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II #define axl 1 // 10k ax connected 

to RBI 

#define azl 5 // 10k az connected 

to RB5 

#define AINPUTS OxffOO // Analog input for sen- 
sor on line 5 



void init ( ) ; 

void initADC ( int amask) ; 

void lcd_init(); 

void delay ( ) ; 

void delay2 ( ) ; 

void delay3 ( ) ; 

void txt hm ( ) ; 

void send d (unsigned int x) ; 

void send2 d (unsigned int x) ; 

void send i (unsigned char x) ; 

void chk_busy(); 

void chk_busy2 ( ) ; 

void gr hm ( ) ; 

void os x (unsigned int ay); 

void ekranO ( ) ; 

unsigned int readADC ( int ch) ; 

void os y (unsigned int ax) ; 

void g setdot (unsigned int al, unsigned int a2); 

void lcd_cl ( ) ; 

void put char (char a, unsigned int al, unsigned int 
a2) ; 

void putsLCD ( char *s, unsigned int al, unsigned int 
a2) ; 

void gr_clear(); 

void num2str (unsigned int a); 

int main (void) 
{ 

initADC ( AINPUTS); // initialize the ADC 

delay2 ( ) ; 

init () ; 
lcd_init ( ) ; 

while (1) 
{ 

if (PORTCbits.RC3) 
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while (P0RTCbits.RC3) ; 
ekranO ( ) ; 



( 



} 
} 

return ; 

} 



// 

void ekranO ( ) 
{ 

int i, j; 

unsigned int b, a, a max, a min; 

unsigned int az[30]; 

send_i (0x94) ; //text on 

lcd_cl () ; 

for (i = 0; i < 10; i++) 

put_char ( ' - ' , 0, i) ; 

a_max = ; 
a min = 50 0; 
putsLCD("a_z = ", 19, 0); 

j = 0; 

a = readADC (azl) ; 

// collecting 22 measurements, 

// filtering the noise, when adjacent data differ 

// less, than 90 mV 

while (j < 22) 
{ 

b = readADC (azl) ; 

i = a - b; 

if (i < 0) 

i *= -1; 

delay ( ) ; 

if (i > 90) 

{ az [ j ] = a; 
delay ( ) ; 

j++; 

a = b; 
} 
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delay ( ] 



} 



} 



// displaying 8 results as numbers 
for (i = 0; i < 9; i++) 

{ 

num2str (az [i] ) ; //convert num to string tl 
putsLCD(tl, 25, i * 2) ; 
} 

// making plot diagram of 22 points 
for (i = 0; i <22; i++) 

{ 

j = az [i] /64; 

put_char (Oxaa, i+1, 16 - j); 
} 



// 

void init ( ) 

{ 

TRISC=0X001A; 
TRISG=0X0000; 
TRISB=0X00ff ; 
TRISD=0X0000; 

TRISF=0X0000; 
SPI2CONl=0x0278; 
SPI2STAT=0x8000; 
} 



// initialize the ADC for single conversion, select 
// Analog input pins 
void initADC ( int amask) 
{ 

// select analog input pins 
// auto convert after end of 

// sampling 
// no scanning required 
// max sample time = 31Tad, 
// Tad = 2 x Tcy = 125ns >75ns 

// use MUXA, AVss and Avdd 
// are used as Vref+/- 
ADlCONlbits.ADON = 1; // turn on the ADC 
} //initADC 



AD1PCFG = 


amask; 


AD1CON1 = 


OxOOEO 


AD1CSSL = 


0; 


AD1CON3 = 


0xlF02 


AD1CON2 = 


0; 
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// 



void led init ( ; 
{ 

int i; 

wr = 1 ; 
rd = 1 ; 
c s = 1 ; 
cd = 1; 
fs = ; 
rst= 1; 
delay2 ( ) ; 
rst = 0; 
delay () 
rst = 1; 

delay2 ( ) ; 
txt_hm ( ) ; 
gr_hm ( ) ; 
send_i (0x8 0) ; 
send i (0x98) ; 



//OR mode 

// graph on 



gr_clear ( ) ; 

// generating user defined characters 
// offset = 4 

// set offset register 



send_d(0x04) ; 
send_d(0x0 0) ; 
send i (0x22) ; 



send_d(0x0 0) ; 
send_d(0x2 4) ; 
RAM starts at 0x2400 
send_i (0x2 4) ; 

send i (OxbO) ; 



for (i=0; i<88; i++ 

{ send2_d (pol [i] ) ; 

} 

send i(0xb2); // auto reset 



// if offset = 4, then CG 

// data auto write 
//a, c, e, s, 1, o, z, z, n 
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II 

void delay () 
{ 

int m; 

for (m=0;m<10;m+H 

{;} 
} 



II- 



void delay2 ( ) 

{ 

unsigned int i2; 

for (i2 = 0;i2<50 0;i2++) ; 
} 

// 



void delay3 ( ) 
{ 

unsigned int i3; 
for (i3=0;i3<2000;i3- 
delay2 ( ) ; 
} 



// 

unsigned int readADC ( int ch) 
{ 

AD1CHS = ch; // select analog 

//input channel 
ADICONlbits.SAMP = 1; // start sampling, 

// automatic conversion will follow 
while ( !ADlCONlbits.DONE) ; // wait to complete 

// the conversion 
return (unsigned int) ADC1BUF0; // read the 

// conversion result 
} // readADC 



// 

void os y (unsigned int ax) 
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{ 

int i; 

gr_hm ( ) ; 

for (i=0; i<128; i++) 
g_setdot (ax, i) ; 
} 

// 



void os x (unsigned int ay) 
{ 

int i; 

gr_hm ( ) ; 

for (i=0; i<240; i++) 
g_setdot (i, ay) ; 
} 

// 

void g setdot (unsigned int al, unsigned int a2) 

{ 

// al - coord, x are to 239 

// a2 - coord, y are to 127 

unsigned int adr, cmd; 

adr = al/8 + 30 * a2; 

// 128 rows x 30 bytes in each row 

cmd = 0xf8 | (8 - (al % 8)); // bitwise OR 
// determine, which bit is to be set 

gr_hm ( ) ; 

send_d(adr % 256); // younger byte 

send d(0xl0 + adr/ 256); // more significant byte 

// gr. home address + byte no in the RAM memory 

send_i (0x2 4) ; 

send_i (cmd) ; 
} 
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II 

void txt hm ( ) //Text Home 
{ 

send_d(0x0 0) ; 

send_d(0x0 0) ; 

send_i (0x4 0) ; // Set Text Home Address 

send_d (Oxle) ; // le = 30 columns 

send_d(0x0 0) ; 

send i(0x41); // Set Text Area 



} 

// 

void send d (unsigned int x) 
{ 

chk_busy ( ) ; 

cd = 0; 

c s = ; 

wr = ; 

PORTD = x; 

delay ( ) ; 

delay ( ) ; 

wr = 1 ; 

c s = 1 ; 
} 

// 

void send2 d (unsigned int x) // for AUTO mode 

// with different function chk busy( ) 
{ 

chk_busy2 ( ) ; 

cd = 0; 

c s = ; 

wr = ; 

PORTD = x; 

delay ( ) ; 

delay ( ) ; 

wr = 1 ; 

c s = 1 ; 
} 

// 

void send i (unsigned char x) 
{ 

chk_busy ( ) ; 



Interfacing 8-Bit Pic Microcontroller to Peripherial Devices 155 

c s = ; 
wr = ; 
PORTD = x; 
delay () ; 
delay ( ) ; 
wr = 1 ; 
c s = 1 ; 



II- 



void chk_busy() 
{ 

cd = 1; 
wr = 1 ; 
TRISD=OXffff ; 
do { 

c s = 1 ; 

rd = 1; 

delay ( ) 

cs = 

rd = 

} 
while ( IPORTDbits.RDO | ! PORTDbits . RD1 ) ; 
cs = 1 ; 
rd = 1 ; 
TRISD=0X0000; 



// 

void chk busy2() 
{ 

cd = 1; 
wr = 1 ; 
TRISD=OXffff ; 
do { 

c s = 1 ; 
rd = 1; 
delay ( ) 
cs = 
rd = 
} 
// checking Auto mode data write capability (bit 3) 

while (! PORTDbits. RD3 ) ; 
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cs = 1 ; 
rd = 1 ; 
TRISD=OXOOOO; 
} 

// 

void gr hm ( ) 
{ 

send_d(0x0 0) ; 

send_d(0xl0) ; // 0x1000 

send_i (0x42 ) ; // Set Graphics Home Address 

send_d(0xle) ; // 30 (x 8) 

send_d(0x0 0) ; 

send_i (0x4 3) ; // Set Graphics Area 
} 



// 

void lcd_cl ( ) 

{ 

int i, j; 

for (i=0;i<16;i++) 

for(j=0; j<30; j++) 

put_char ( ' ' , j , 
} 



// 

void put char (char a, unsigned int al, unsigned int 
a2) 



{ 



unsigned int adr; 

adr = 30 * a2 + al; 
txt_hm ( ) ; 

send_i (0x94) ; // Text on 

send_d(adr % 256); 
send_d(adr / 256); 
send_i (0x24 ) ; // Set Address Pointer 

send d(a - 32); // ASCII offset 
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send i(OxcO); //Data Write, increment address 

send i(0x9c); // Text and Graph on 



// 

void putsLCD ( char *s, unsigned int al, unsigned int 
a2) 
{ 

int i = 0; 
while ( *s) 

{ put_char ( *s++, al + i, a2); 
i++; 

delay ( ) ; 
} 
} //putsLCD 



// 

void gr_clear() 
{ 

int i, j ; 

send_d(0x0 0) ; 

send_d(0xl0) ; 

send_i (0x2 4) ; 

send_i (0x98) ; // text off, graphic on 

for (i=0;i<30;i++) 

for (j=0; j < 1 2 8 ; j++) 
{ 

send_d(0x0 0) ; 

send i(0xc0); //data write, increment addr. 
} 
} 

// 



void num2str (unsigned int b) 

{ 

int i, j, basl; 

if (b > 1024) 

{tl[0] = 'e'; // error, when value > 1024 
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tl[l] = '\0'; 
return ; 
} 
for (i=0, j=4; i < 4; i++, j — ) 

{ 

basl = pow(10, j - 1); // 1000, 100, 10, 1 

tl [i] = (b / basl) + 48; 

b %= basl; 
} 
tl[i] = '\0'; 
} 



// 



The program occupies 4% of the program memory, as 
shown below: 



Q aecjuty - MPLAB IDE vS.4u 
File Edfc View Project Debugger Programmer Tools Configure Window Help 



D 



M 



Release - □ 0* H ft tt © # Bl M B °i a 2 °i °i °i J \> 

I n Rl^.GWPHlc.sraLUtylsi™, 




a LJ atc_lLty.ritp 

g-U Source Files 
I '■ H3 ^ensor.c 
S-LJ Header Files 

=■■■12 p2"H=J96GArjoa.h 
\-£2 Object Files 

! Q Library Files 

m Output 
Build Version Control Find in Files MPLAB I CD 2 



ULSig-netl. iiit bh£.3l]]; 



address length (FC units) length (bytes) (dec) 



0x2 00 

0x998 
0x9aO 
0xe60 

OxebO 



0s798 

0x8 
0k4c0 
0x50 



Total program memory used (bytes) 



0xb64 (2916) 

Oxc (12) 

0x720 (1824) 

0x70 (120) 

0x3 (3) 

0x130b (4875) i"4 



Data Memory [Origin = 0x800, Length = 0x2008] 

section address alignment gaps total length (dec) 



Total data memory used (bytes) 



Dynamic Memory Usscfs 
region 



0x58 (88) 
Oxc (12) 

0x64 (100) IX 



length (dec) 
(0) 



Lfiei 1ej3, 



Fig. 47 Ocupation of program and data memory 



The special part of the program is devoted to communicating with LCD mod- 
ule. The detailed description follows. 
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Interfacing microcontroller to LCD display 

The LCD module has LCD screen 240 x 128 driven with T6963C controller, 
operating in text and/or graphic mode. 

The initial settings of the controller are: 



'in name 


state 


DUAL 


H 


LDS 


H 


LD1 


L 


LDO 


L 




// 16 lines, 128 vertical dots, Single Screen 


LD2 


L 


LD3 


H 


SO 


L 


SI 


L 




// 40 columns, 8x8 font. 




F osc 4MHz. 



Number of columns is adjusted in the software and equals 30 in the text mode. 
If we set the number of columns to 30, then addresses of particular row in the 
graphic area are: 

to Oxld 



1 line addresses: 


0x00 


2 


OxlE.. 


3 


0x3C 


4 


0x5A 


5 


0x78 


6 


0x96 


7 


0xB4 


8 


0xD2 


9 


OxFO 


10 


OxlOE 


11 


0xl2C 


12 


0xl4A 


13 


0x168 


14 


0x186 


15 


0xlA4 


16 


0xlC2 



etc. 
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The controller has its set of commands. Most important of them are: 

$2 1 Cursor Pointer set 

$24 Address Pointer Set 

$40 Text Home address set 

$41 Text Area Set 

$42 Graphics Home Address Set 

$43 Graphics Area Set 

$80 OR mode command, Internal CG ROM Mode 

$81 XORmode 

$83 AND mode 

$84 Text Attribute Mode 

$88 External CG ROM Mode 

$90 Display off 

$91 Blink on 

$92 Cursor on 

$94 Text on 

$98 Graphic on 

$9C Text and graphic on 

// Cursor pattern 

$A0 Cursor 1 line 

$A 1 Cursor 2 line 

$A2 Cursor 3 line 

$A3 Cursor 4 line 

$A4 Cursor 5 line 

$A5 Cursor 6 line 

$A6 Cursor 7 line 

$A7 Cursor 8 line 

$B0 Data Auto Write 

$B1 Data Auto Read 

$B2 Auto Data Reset 

$C0 Data write and increment address 

$C 1 Data read and increment address 

$C2 Data write and decrement address 

$C3 Data read and decrement address 

$C4 Data write, no address change 

$C5 Data read, no address change 

// Bit Set/Reset (OR with bit number 0-7) 
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$F0 Bit reset 
$F8 Bit set 

Most commands require arguments (data). In the software first we set data with 
the function send_d( ), then the command/instruction with the function send_I( ). 
If there are 2 bytes of data, less significant byte goes first, then more significant 
byte. 

Example 

Graphic home address is 0x1000. 

We send first 0x00, then 0x10. 

Now let's consider the listing of the application. 

LCD controller T6963C requires 6 control lines and 8 data lines to communi- 
cate with the microcontroller. The control lines are designated as follows: 



#def ine 


wr 


LATFbits 


. LATF1 


#def ine 


rd 


LATFbits 


. LATFO 


#def ine 


cs 


LATFbits 


. LATF3 


#def ine 


cd 


LATFbits 


. LATF2 


#def ine 


rst 


LATFbits 


. LATF5 


#def ine 


fs 


LATFbits 


. LATF4 



// WR L Write 
// RD L READ 
// CS L Chip Select 
//CD L DATA H Control 
// RST L Reset 
// FS FONT SELECT 



All of them are connected to port F. 
Data is send through lower part of port D. 



Both ports are initially set to be output ports: 

TRISD=0X0000; 

TRISF=0X0000; 
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void init ( ] 
{ 



TRISD=OX0000; 

TRISF=0X0000; 



} 



We initialize LCD with the function lcd_init( ). 

void led init ( ) 
{ 

int i; 

// initial settings for control lines 

wr = 1 ; 

rd = 1 ; 

c s = 1 ; 

cd = 1; 

fs = ; 

rst= 1; 

delay2 ( ) ; 

rst = 0; 

delay () 

rst = 1 



delay2 ( ) ; 

txt_hm ( ) ; // to set text home address 
// in the memory area 
// and the number of columns in the text mode 

gr hm ( ) ; // to set graphic home address 
// and the number of columns 
// in the graphics mode 



send_i (0x80) ; 
send i (0x98) ; 



//OR mode 
// graph on 



gr_clear ( ) ; 



// generating national polish characters 
send d(0x04); // offset 4 
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send_d(OxOO) ; 






send i ( 0x22 ) ; 




// set offset register 


send_d(0x0 0) ; 






send d(0x24) ; 


//CG 


RAM address starting 




//at 


0x2400 for offset equal 4 


send i (0x24) ; 






send i (OxbO) ; 




// data auto write 



// sending user defined characters 
// to CG RAM memory 

for (i=0; i<88; i++) //a, c, e, s, 1, o, z, z, n 

{ send2_d (pol [i] ) ; 

} 

send i(0xb2); // auto reset 



} 



The text data, graphics data and external CG data can be freely allocated to the 
display memory area (64 KB max). We set home address to 0x0000 in text mode 
and for graphics: 0x1000. 

void txt hm ( ) //Text Home 



{ 



send_d(0x00) 
send_d(0x0 0) 
send_i (0x4 0) 

send_d (Oxle) 
send_d(0x0 0) 
send i (0x41) 



// Set Text Home Address 
// le = 30 kolumn 
// Set Text Area 



} 

II- 



void gr_hm() 
{ 

send_d(0x0 0) ; 

send_d(0xl0) ; 

send i (0x42) ; 



// 0x1000 
// Set Graphics Home Address 
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send_d (Oxle) ; //30 (x 8 bits for each column) 
send_d(0x0 0) ; 

send_i (0x4 3) ; // Set Graphics Area 
} 

The character codes used by the T6963 are different 
from ASCII codes. The user must subtract 0x20 (decimal 
32) from the ASCII code sending it to the display, as 
is in the function put char ( ) . 

void put char (char a, unsigned int al, unsigned int a2) 
{ 

unsigned int adr; 

adr = 30 * a2 + al; 

txt_hm ( ) ; 

send_i (0x94) ; // Text on 

send_d(adr % 256); 
send_d(adr / 256); 
send_i (0x24 ) ; // Set Address Pointer 

send_d(a - 32); // ASCII offset 

send i(0xc0); // Data Write, increment address 

send i(0x9c); // Text and Graph on 
} 

// 



The last function described is num2str( ). It converts 4 digit numeric value to 
text string. 



void num2str (unsigned int b) 

{ 

int i, j, basl; 

if (b > 1024) // error, when value > 1024 

{tl[0] = 'e'; 

tl[l] = '\0'; 

return ; 

} 
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for (i=0, j=4; i < 4; i++, j — ) 

{ 

basl = pow(10, j - 1); // 1000, 100, 10, 1 

tl [i] = (b / basl) + 48; 

b %= basl; 
} 
tl[i] = '\0'; // string terminator 
} 
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